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Waterflow  in  Soils: 
A  Generalized  Steady-State, 
Two-Dimensional  Porous  Media  Flow  Model 

C.  R.  Amerman1 


Introduction 

Understanding  water  movement  through  soil 
and  underlying  unconsolidated  material  is 
basic  to  understanding  important  aspects  of 
other  such  phenomena  as  the  hydrologic  cycle 
and  the  movement  of  waterborne  substances 
through  the  landscape.     Unfortunately,  sub- 
surface water  movement  under  natural  condi- 
tions cannot  be  directly  observed.  Methods 
of  indirect  observation  are  usually  diffi- 
cult, tedious,  and  expensive.  Further, 
instrumentation  for  such  methods  may  modify 
the  system  under  observation.     Although  there 
is  no  real  substitute  for  carefully  made 
field  observations  to  provide  initial  con- 
cepts and  to  check  theoretical  results, 
computational  efforts  can  save  large  amounts 
of  field  labor  and  expense.     Such  methods 
also  often  provide  clearer,  broader  concepts 
than  would  be  available  analyzing  field  data 
alone. 

This  report  discusses  a  finite  difference 
model  of  the  hydraulic  head  distribution 
within  two-dimensional  regions  of  porous 
media  subject  to  steady  flow.     Soil  water 
content,  water  table  position  and  shape, 
pathlines  of  flow,  and  flow  velocities  can  be 
estimated  from  such  a  distribution. 

The  range  of  applicability  and  limitations 
of  the  model  may  be  summarized  as: 

1.  Flow  system  boundary  geometries  must  be 
approximated  with  straight-line  segments. 
Straight-line  boundaries  which  do  not  par- 
allel Cartesian  coordinate  axes  can  be 
modeled  but  require  considerably  more  effort 
than  those  that  do. 

2.  The  Cartesian  coordinate  system  may  be 
rotated  so  that  the  major  axis  of  the  flow 
system  is  on  a  slope. 

3.  Boundary  conditions  must  be  in  terms  of 
pressure  head  or  flux,  or  both;  at  least  a 
portion  of  the  boundary,  however,  must  have  a 
known  pressure  head. 
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4.  A  cross  section  may  contain  several 
soil  units.     The  boundaries  between  units  may 
be  geometrically  complex. 

5.  Soils  within  each  unit  of  a  modeled 
system  are  considered  to  be  isotropic  and 
homogeneous . 

6.  Hysteresis  in  the  hydraulic  conduc- 
tivity pressure  head  relationship  is  ignored. 

7.  Spacing  of  nodes  within  the  finite 
difference  solution  mesh  may  be  irregular. 

The  usual  assumptions  regarding  porous 
media  flow  apply  to  this  model: 

1.  Inertial  forces  are  not  significant  as 
compared  with  viscous  forces. 

2.  Water  is  continuously  connected 
throughout  the  system. 

3.  Flow  is  isothermal. 

4.  Air  escapes  freely  from  all  parts  of 
the  flow  system. 

The  flow  equation  modeled  may  be  described 
as  an  elliptic  partial  differential  equation 
with  mixed  boundary  conditons.  The  finite 
difference  method  is  used,  and  the  resulting 
system  of  equations  is  solved  by  the  succes- 
sive overrelaxation  (SOR)  method.  The  model 
takes  the  form  of  a  digital  computer  program 
written  in  USASI  Fortran. 

The  following  pages  describe  the  model  and 
its  application  in  detail.     A  sample  cross 
section  is  modeled;  the  sample  input  and 
results  given  may  be  used  to  check  the 
operation  of  the  model  when  implementing  it 
for  the  first  time.    Appendixes  document  the 
program  and  describe  two  useful  auxiliary 
programs . 

Partial  Differential  Equation 

A  number  of  textbooks  discuss  the  theory 
of  soil  water  movement.     Childs  (2) 2  gives 
a  detailed  but  quite  readable  mathematical 
description,  while  resumes  are  given  by 
Hillel  (5)  and  by  Baver  and  associates  (I) . 
In  general,  porous  media  flow  may  be  modeled 
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by  a  partial  differential  equation,  called 
Richards'  equation,  and  associated  initial 
and  boundary  conditions.     Solution  of  a 
steady-state  version  of  Richards1  equation  in 
two  dimensions  requires  only  boundary  condi- 
tions and  is  approximated  by  the  model 
presented  here. 

Richards'  equation  is  derived  by  combining 
equations  of  state  and  continuity  with  Darcy's 
law.     For  steady  state,  it  may  be  written 


in  which 

H  =  hydraulic  head  =  h  +  z  for  porous 

media  flow  (L) 
h  =  soil  water  pressure  head  (L) 
z  =  elevation  above  a  datum  (L)  _^ 
K  =  K(h)  is  hydraulic  conductivity  (LT  ) 
x  =  distance  parallel  to  the  x-axis  of 
the  Cartesian  coordinate  system, 
positive  to  the  right  (L) 
y  =  distance  parallel  to  the  y-axis, 
positive  upward  (L) 
To  accommodate  a  sloping  soil,  rotating  the 
Cartesian  coordinate  axes  through  an  angle,  a, 
is  convenient.    The  tangent  of  this  angle 
should  be  equal  to  the  slope  of  the  prototype 
system.     Because  of  the  dependence  of  K  upon 
h,  the  so-called  ft-based  form  of  Richards' 
equation  is  used.     Stated  for  general  orien- 
tation, this  form  of  Richards'  equation  is 

3x  {K  dx)  +  oy  {K  dy> 

[2] 


+  sin  a   1-  cos  a  ir-  =  0 

3x  ay 

Equation  [2]   is  a  nonlinear,  elliptic, 
partial  differential  equation. 

Boundary  conditions  are  essentially  of  two 
types:     (1)  pressure  head  (h)  specified  and 
(2)  hydraulic  gradient  (dh/dx  or  oh/ay) 
specified.     Given  a  zero  value,  the  latter 
represents  impermeable  boundaries  or  the 
coincidence  of  streamlines  of  flow  with  the 
boundaries.     Given  non-zero  values,  a 
hydraulic  gradient  boundary  condition  rep- 
resents a  flux  boundary.     The  model  to  be 
described  contains  an  algorithm  that  allows 
the  flux  boundary  condition  to  be  stated  in 
terms  of  the  flux  itself. 

There  is  no  closed  form  solution  for 
equation  [2].     Analytical  methods  can  be 
applied  to  the  equation  for  certain  special 
situations  but,  for  the  general  case,  it  must 
be  solved  by  such  approximate  methods  as 
finite  differences. 

Finite  Difference  Model 

Finite  difference  equation 

Whereas  equation  [2]  applies  throughout  a 
two-dimensional  flow  region,  finite  differ- 


encing provides  another  equation  at  each  of  a 
set  of  discrete  points,  superimposed  on  the 
cross  section  of  that  region.  Associated 
boundary  conditions  are  applied  at  discrete 
points  along  the  boundaries.     The  set  of 
discrete  points,  called  nodes,  is  arranged  in 
a  grid,  termed  the  solution  mesh  in  this 
report,  such  as  that  in  figure  1. 

The  sizes  of  the  mesh  increments,  Ax 
and  Ay,  influence  the  precision  with  which 
the  finite  difference  model  represents  the 
partial  differential  system.     The  smaller  the 
mesh  increment  size,  the  greater  the  preci- 
sion.    These  concepts  are  covered  in  many 
textbooks;  for  example,  see  Smith  (8).  In 
many  flow  systems,  precision  requirements  are 
not  uniform  over  the  cross  section  and,  for 
economic  reasons,  Ax  and  by  are  often  varied. 
They  may  be  varied  independently. 

The  finite  difference  equation  approxi- 
mating equation  [2]  was  developed  using  the 
central  difference  method.     By  this  method, 
the  pressure  head  at  each  node  is  a  function 
of  the  heads  at  its  four  nearest  neighboring 
nodes.     For  example,  in  figure  1 

hp  =  f(hA,  hB,  hc,  hD) 

To  simplify  and  organize  notation,   1=1,  2, 
3,   .   .   .  gives  column  identification  to  all 
the  nodes  of  each  row,  while  j  =  1,  2,  3,   .  . 
gives  row  identification  to  all  nodes  in  each 
column.    Thus  node  P  is  node.,  ,..     If  h  at 
point  P  is  identified  as        j',  then  h  at 
point  A  is  hj,_23j  and  h  at  point  B  is 
hi  -j_2-     Note  that  the  directions  in  which  i 
and  j  increase  are  independent  of  those  in 
which  x  and  y  increase.     Because  of  Fortran 
limitations,    i  and  j  can  take  on  only  positive 
non-zero  values.     The  x-axis  most  conveniently 
coincides  with  the  soil  surface  and,  in  this 
notational  scheme,  j  increases  downward  even 


i  =  l 
2 
3 
4 
5 
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Figure  1. — Square  mesh  for  finite  differencing 
superimposed  on  a  two-dimensional  flow  field. 
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though  y  is  considered  to  be  positive  upward.  four  neighboring  nodes,  a  finite  difference 

Using  this  notation  and  conditions  at  the  representation  is  expressed  in  equation  [3]. 


K.  ,    .h.  ,   .      (Ax  X .  ,    .+Ax  K.^    .)h .   .      X..,    .h...  . 
Ax  +Ax_^  1         Ax  bx_'bx+  Ax+ 


.  .         (Ay  X.  ,-j+Ai/  X.  ^)\-  ,•      X.  .  - 


X. 


Ay_+Ay^ 


Ay 


Ay_*Ay+ 


+  sin  a   ;     ,  .  +  cos  a  — "i  —K —  0 


Ax  +Ax , 


Ay_+Ay+ 


in  which 


and 


K.  i    .+X.  . 
X-  j,      =    ^-1..7  lii 


X.   .  i+K.  . 
t-.J-^  —  


X.   .+X.,,  ■ 

X.   .+X.  ... 
t-.J-^-S   v  2   


Ax    =  mesh  increment  length  to  left  of  node  i , j  (L) 


[3] 


Ax+  =  mesh  increment  length  to  right  of  node  i,j  (L) 
Ay    =  mesh  increment  length  above  node  i , j  (L) 


Ay+  =  mesh  increment  length 

Because  of  the  appearance  of  K  =  K(h)  in 
equation  [2],  equation  [3]  was  developed  by 
inspection — simply  transforming  partial 
derivatives  into  ratios  of  differences. 
However,  Forsythe  and  Wasow  (3)  on  pages  187 
and  188  give  formal  derivations  of  linear 
partial  derivatives  that  support  the  validity 
of  equation  [3]   for  the  nonlinear  case. 
They  also  note  that,  if  Ax,  for  example, 
varies  over  the  cross  section,  one  may 
expect  an  error  of  O(Ax) .     For  a  square  mesh 
in  which  Ay  =  Ax,  the  error  is  0[(Ax)^]. 

"Imaginary"  rows  and  columns  outside  the 
cross  section  provide  the  fourth  node  for 
calculations  involving  a  node  on  gradient- 
type  boundaries.     To  illustrate,   if  the 
right  side  of  the  cross  section  in  figure  1 
is  impermeable,  then  dH/dx  =  0  and  H  at 
each  node  to  the  right  of  the  boundary  is 
set  exactly  equal  to  the  #-value  for  the 
node  horizontally  to  its  left  immediately  in- 


H 


B- 


side  the  boundary,  for  example,  Hj; 
Because  H  =  h  +  z,  to  convert  H  to  h  at  the 
imaginary  node  is  a  simple  operation  regard- 
less of  orientation  of  the  system. 

For  a  given  geometry  and  set  of  boundary 
conditions,  the  flow  regime  may  be  defined, 
with  some  error  or  lack  of  precision  as 
noted  earlier,  by  the  distribution  of 
pressure  head  (h)  that  satisfies  equation  [3] 
at  all  nodes  of  the  solution  mesh.     To  find 
this  distribution,  a  starting  array  of 
^-values,  which  may  be  completely  arbitrary, 
is  used.     Equation  [3]  is  then  solved  for 


below  node  i,j  (L) 

each  node  of  the  solution  mesh  except  those 
on  /z-specified  boundaries  and  except  for  the 
imaginary  nodes  outside  the  gradient  (flux) 
boundaries.     If  subsectioning,  discussed 
later,  is  carried  out  properly,  solution 
starts  with  the  left-most  node  on  the  top 
row  and  proceeds  to  the  right  along  that 
row.     Lower  rows  are  processed  in  succes- 
sion, also  from  left  to  right.     A  complete 
cycle  of  solving  equation  [3]  once  for  all 
nodes  constitutes  an  iteration,  the  7:-array 
at  the  end  of  an  iteration  being  in  some  way 
a  closer  approximation  to  the  solution  array 
than  that  at  the  beginning.    Many  such 
iterations  are  usually  necessary  before 
convergence  to  the  final  distribution  of 
h-values . 

Overrelaxation 

Experience  has  shown  that  an  overrelaxa- 
tion factor  (oj)  may  speed  convergence  of  a 
finite  difference  model  of  the  type  of 
equation  [3].     If  h  =  fig),  then 
(jjft  +  h  =  wf(g)  +  h 

or  h  =  fr(l-u)  +  uf(g) 

where  to  has  a  value  between  1.0  and  2.0. 
When  full  convergence  is  reached,  of  course, 
h  on  the  left  side,  h  on  the  right  side,  and 
fig)  are  all  equal.     Before  reaching  conver- 
gence, h  on  the  right  side  has  the  value 
calculated  during  the  preceding  iteration, 
whereas  h  on  the  left  is  the  new  estimate  to 
be  calculated  during  the  current  iteration. 
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Solving  equation  [3]  for       j  and  intro- 
ducing the  overrelaxation  factor  give  the 
equation  that  is  solved  for  each  node  during 
operation  of  the  model. 

h.   .  =  (1-id)  h.  . 
1,3  1,3 


+  10  [ 


Ax  +Ax , 


K.  .  . 

Ax  1-1,3 


i+h,3 


Ax^  hi+l,j) 


Ay_+Az/+       Ay_  Ay+  i,3+l 


K  •  ~    .—K .  ,    .  K .    .    —K .  . 

1-1,3     i+l>3  ,  1,3-1  1,3+1, 

+  sin  a   .  ^  ,  .   +  cos  a  — ™  ,  .  — 

Ax  +Ax 


bx.'K. 


Ax  +Ax 


(- 


.+Ax 


Ax  • Ax . 


2  ,*V^-^--^ 


Ay_+Ay+ 


)] 


[4] 


Equation  [4]  is  a  successive  overrelaxa- 
tion (SOR)  model  of  equation  [2]  and,  with 
associated  boundary  conditions,  approximates 
two-dimensional,  steady-state,  saturated, 
unsaturated,  or  partially  saturated  porous 
media  flow  using  a  finite  difference  mesh  in 
which  the  mesh  increment  size  may  vary  from 


one  part  of  the  flow  region  to  another  and 
in  which  the  major  axes  of  the  mesh  may  be 
rotated  to  conform  to  the  slope  of  the 
prototype.     Greenspan  (4)  discusses  SOR 
models  as  does  Smith  (8)  and  Forsythe  and 
Wasow  (3) . 


Interation  scheme 

The  SOR  model  converges  toward  the  actual 
^-distribution  most  rapidly  if  the  new 
7z-value  at  any  node  replaces  the  old  value 
in  the  /i-array  as  soon  as  it  is  calculated. 
Thus,  when         ■  is  being  calculated,  • 
and       j_2  are  new  values  calculated  during 
the  current  iteration,  whereas  h-i+j  j  an<i 
h-i  j'+l  are  old  values  from  the  preceding 
iteration.    New  Z-values  would  seem  appro- 
priate for  use  with  new  ?:-values,  but 
experience  has  shown  that  this  practice  is 
less  efficient  than  the  use  of  old 
if-values.     The  latter  practice  results  in  a 
larger  maximum  overrelaxation  factor  (oj^^.)  , 
hence  more  rapid  convergence,   than  is  possible 
with  new  ^-values.     The  concept  of  cu^™ 
will  be  discussed  in  greater  detail  later. 

Equation  [4]  may  be  modified  to  show  the 
iteration  scheme  used.     Also  introduced  at 
this  point  is  simplified  notation  used  in 
the  computer  program  for  the  model. 


hm.  . 

1,3 


=  (l-o))  hm-\  +  H  [  ^  t+1"7    m  .  ^  1 

where    m  refers  to  values  obtained  during  the  current  iteration. 
m-1  refers  to  values  obtained  in  the  preceding  iteration. 
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AX  = 


AY  = 


XB 


YB  = 


kT}  . 

Ax 

^,3-h 

Ay 


cx  = 

Ax 

CY  = 


Ax  -kT}   .+Ax  >f.-} 
+   i-k>3     -  i+h„ 


Ax  *Ax. 


Ay_-Ay^ 


-1 


DELTA  =  sin  a    %  T"?  ^  + 

Ax  +Ax. 


cos  a 


1,3-1  i,3+l 
Ay_+Ay+ 


EX 


Ar  +Ax. 
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Nonlinearity  and  convergence 

As  noted  earlier,  the  Richards'  equation, 
hence  its  finite  difference  approximation, 
is  nonlinear.     Because  finite  difference 
theory  has  been  developed  almost  exclusively 
in  the  linear  context,  there  are  no  firm 
guidelines  on  the  application  or  operation 
of  nonlinear  models. 3 

The  lack  of  a  body  of  theory  covering 
nonlinear  finite  differencing  is  felt  most 
keenly  when  considering  questions  of  con- 
vergence and  the  rate  of  convergence.  A 
model  converges  if  it  converts  an  initial 
guess  regarding  the  distribution  of  the 
dependent  variable  to  an  approximation  to 
the  true  distribution.     Fortunately,  experi- 
ence indicates  that  many  finite  difference 
schemes  developed  for  linear  systems  also 
converge  for  nonlinear  systems  even  though 
there  is  no  theoretical  proof  that  they 
should.     However,  sometimes  certain 
modifications  are  necessary. 

The  rate  of  convergence  is  a  concept  of 
some  importance  to  the  economical  use  of 
finite  difference  models.     The  overrelaxation 
factor  (to)  was  introduced  to  speed  conver- 
gence.    For sy the  and  Wasow  (3)  show  on 
page  257  that,  for  linear  systems,  as  to 
increases  in  value  between  1.0  and  2.0, 
convergence  rate  increases  until  some  maximum 
rate  is  reached.     Further  increases  in  to 
result  in  decreasing  convergence  rate  until 
at  to  =  2.0  there  is  essentially  no  improve- 
ment over  oj  =  1.0.     For  linear  systems, 
overestimating  the  optimum  to-value  (oo0pt)  is 
usually  better  than  underestimating  it. 

Experience  with  nonlinear  models  of 
unsaturated  porous  media  flow  systems 
indicates  that  ^>Qpt  cannot  be  estimated 
using  the  procedures  that  apply  to  a  geo- 
metrically similar  linear  system.  Further, 
Reisenauer  and  others  (£)  found  that 
to  >  1.15  led  to  instability  of  their  model, 
that  is,  the  solution  did  not  converge  for 
larger  to.     The  author's  experience  also 
indicates  that, for  nonlinear  systems,  the 
concept  of  toCp+  should  be  modified  to  one  of 
Umax,  or  the  maximum  to-value  with  which 
convergence  can  be  obtained.  Apparently, 
increasing  oj  toward  to^^  increases  conver- 
gence rate.     The  value  of  oj^^j.  differs 
between  cases,  that  is,  between  different 
combinations  of  boundary  geometry,  boundary 
hydraulic  conditions,  Ax,Azy  magnitudes  and 
h-K  relationships,  and  may  vary  between  the 
first  and  last  iterations  for  a  given  case. 
For  the  several  cases  investigated  thus  far, 
its  value  has  been  less  than  2.0.  In 
certain  cases  of  complex  geometry,  to^^  has 
had  a  value  smaller  than  1.0. 
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The  only  method  for  approximating  u>rnax 
seems  to  be  trial  and  error.     This  reduces 
the  economic  advantage  of  finding  to^^.,  so 
that  exhaustive  search  for  its  value  would 
probably  be  more  expensive  than  simply 
running  the  model  with  some  less  exact 
value.     Because  different  cases  involve 
different  convergence  rates  and  different 
amounts  of  computational  time  per  iteration, 
each  user  must  develop  from  his  own  experi- 
ence a  feel  for  the  amount  of  trial  and 
error  to  be  expended  in  approximating 
oj^^.     He  should  keep  in  mind  that  w 
simply  influences  convergence  rate;  it  does 
not  affect  the  accuracy  of  the  approximation 
to  the  true  ^-distribution  unless  ^max  is 
exceeded. 

For  fully  saturated  flow  in  which  K  is 
independent  of  h,  equations  [1]  and  [2] 
become  linear.     For  such  systems,  the  model 
described  here  also  becomes  linear,  and  the 
methods  for  approximating  to0  £,  given  in  the 
references  previously  cited,  may  contribute 
to  considerable  savings  in  the  number  of 
iterations  necessary  for  convergence. 

Digital  Computer  Model 

Model  philosophy 

The  only  feasible  way  to  apply  equation 
[4]  iteratively  to  a  small  mesh  of  few  nodes 
is  by  digital  computer.     The  objective  of 
the  effort  reported  here  was  to  develop  a 
computer  program  for  the  application  of 
equation  [4]  using  the  iteration  scheme 
portrayed  in  equation  [5]  to  the  solution  of 
porous  media  flow  problems  under  a  variety 
of  geometrical  and  hydraulic  boundary 
conditions.     Hopefully,  users  with  little 
experience  in  computer  programming  and 
finite  differencing  can  use  the  model. 
USASI  Fortran  was  used  to  reduce  problems 
when  using  the  model  on  different  computer 
facilities . 

To  model  soil-water  movement  in  all  its 
complexity  and  to  provide  for  all  the 
possible  contingencies  encountered  in 
hydrologic  systems  require  a  complex  program 
difficult  to  understand,  describe,  or 
modify.     Fortunately,  considerable  insight 
into  porous  media  flow  questions  can  often 
be  gained  without  strict  attention  to 
emulating  all  details  of  the  prototype  flow 
system. 

Some  details  cannot  be  measured  with 
great  enough  precision  nor  at  enough  points 
in  a  given  system  to  warrant  trying  to  model 
them  with  great  accuracy.     For  example, 
hysteresis  effects  in  the  hydraulic 
conductivity-pressure  head  relationships  may 
exert  less  influence  on  the  system  than  the 
errors  inherent  in  establishing  the  relation- 
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ships  themselves,  particularly  if  they  are 
to  apply  to  flow  regions  of  large  extent  and 
exhibiting  spatial  variation. 

Again,  for  larger  systems,  closely 
defining  the  exact  positions  and  shapes  of 
all  boundaries  in  the  prototype  is  not 
usually  necessary  or  possible.     In  many 
cases,  satisfactory  results  can  be  attained 
using  only  rough  boundary  approximations. 

The  computer  program,  called  STDY2,  is 
documented  in  appendix  A.     The  following 
sections  discuss  concepts  that  are  helpful 
or  necessary  to  the  use  of  the  model. 

Solution  mesh 

The  solution  mesh  is  represented  in  a 
digital  computer  by  an  array  of  storage 
locations  identified  with  the  variable 
PHED(I,J).    The  latter  is  the  Fortran 
representation  of  the  variable  ^  j 
(pressure  head  at  node  !,j)  in  equation  [4]. 
Each  storage  location  corresponds  to  a  node 
in  the  solution  mesh.     The  effect  of  solving 
equation  [4]  for  a  given  node  for  a  given 
iteration  is  to  replace  the  value  of 
PHED(I,J)  calculated  during  the  previous 
iteration  with  a  new,  improved  value. 

Mesh  increment  size  is  not  physically 
reflected  in  the  PHED  storage  array  but  is 
controlled  through  the  use  of  four  Fortran 
variables  representing  Ar_ ,  Aa:+,  hy_ ,  and 

Through  use  of  the  Fortran  EQUIVALENCE 
statement,  the  HEAD (I, J) -array  corresponding 
to  hydraulic  head  (H^        replaces  PHED(I,J) 
at  certain  stages  of  program  execution,  thus 
avoiding  the  need  for  an  additional  storage 
array. 

A  second  two-dimensional  storage  array, 
with  a  location  for  each  node  of  the  solu- 
tion mesh,  is  occupied  by  HCON(I,J) .  The 
latter  represents         •,  the  hydraulic 
conductivity.  3 

A  fundamental  concept  necessary  to 
understanding  model  control  is  that  the 
model  proceeds  from  an  initially  guessed 
array  of  PHED (I, J) -values  by  means  of  a 
series  of  iterations  to  a  solution  array  of 
PHED(I,J).     One  may  view  the  PHED-array  at 
the  end  of  any  iteration  as  the  initial 
guess  for  all  the  iterations  to  follow. 
Therefore,  a  computer  run  can  be  interrupted 
and  restarted  without  loss  of  significant 
computer  time  if  the  PHED-array  at  the  time 
of  interruption  can  be  returned  as  the 
initial  guess  when  restarting. 

Boundary  geometry 

Two  characteristics  define  boundaries, 
their  geometric  shape  and  their  hydraulic 
condition  or  status.     To  avoid  excessive 


complexity  and  programming,  the  model  was 
designed  with  the  restriction  that  bounda- 
ries must  cross  rows  and  columns  of  the 
finite  difference  mesh  at  the  nodes. 
Because  the  mesh  is  rectangular,  boundary 
shapes  must  be  composed  of  straight-line 
segments.    Usually,  these  segments  will 
coincide  with  portions  of  rows  or  columns, 
but  placing  them  at  an  angle  is  possible  by 
adjusting  the  relative  size  of  horizontal 
and  vertical  mesh  increments  in  the  region 
crossed  by  this  boundary.     In  a  square  mesh, 
for  example,  a  boundary  at  a  45°  angle  will 
cross  rows  and  columns  only  at  their  inter- 
section nodes,  as  desired.     Curved  boundaries 
may  be  approximated  in  stairstep  fashion. 

Solution  mesh 
and  the  cartesian  coordinate  system 

Various  data  involving  geometric  infor- 
mation must  be  given  as  punchcard  input  for 
control  of  the  model  in  a  computer.  The 
user  will  understand  how  to  determine 
numerical  values  for  these  data  if  he  thinks 
of  the  cross  section  of  interest  as  being 
placed  in  the  Cartesian  coordinate  system 
and  the  solution  mesh  superimposed  thereon. 

In  a  computer,  control  of  the  model  is 
accomplished  using  the  variables  I  and  J,  so 
the  solution  mesh  must  be  placed  on  the 
model  cross  section  in  such  a  way  that  I  and 
J  may  be  calculated  from  x-  and  ^-measurements . 
This  means  that  a  column  of  nodes  which  is 
fixed  in  space  and  whose  I -value  is  known, 
regardless  of  Ax,  must  be  identified  and 
related  spatially  to  the  y-axis  of  the 
Cartesian  coordinate  system.     The  same  may 
be  said  for  a  row  of  nodes  in  the  context  of 
the  a:-axis.     Rows  and  columns  coincident 
with  boundaries  of  the  cross  section  are 
fixed  spatially,  and  the  top  and  left-hand 
boundaries,  if  straight  lines,  may  be  made 
to  coincide  with  the  x-  and  y-axes  of  the 
Cartesian  coordinate  system.     Even  if  a 
boundary  is  complex,  one  or  more  of  its 
straight-line  segments  may  be  made  to  coincide 
with  an  axis,  as  in  figure  1. 

Because  I  and  J  can  take  on  only  non- 
zero, positive  values,  and  recalling  that  J 
is  positive  downward,  a  cross  section  must 
be  contained  entirely  within  quadrant  IV  of 
the  Cartesian  coordinate  system.  Thus, 
proper  model  control  requires  that  the 
uppermost  straight-line  segment  of  the  upper 
boundary  of  the  cross  section  be  made  to 
coincide  with  the  x-axis  and  the  leftmost 
straight-line  segment  of  the  left  boundary 
be  made  to  coincide  with  the  y-axis.  The 
type  of  boundary  condition  to  be  applied  is 
of  no  consequence  in  these  considerations. 
The  solution  mesh  will  be  adjusted  by  a 
computational  algorithm  in  the  model  without 
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loss  of  correspondence  between  x,y  and  I, J 
if  the  top  row  of  nodes  or  the  left-hand 
column  of  nodes,  or  both,  must  be  imaginary. 

Equation  [1]  was  formulated  for  y  positive 
upward,  and  this  should  be  kept  in  mind  for 
such  purposes  as  assigning  positive  or 
negative  sign  to  a  surface  boundary  flux. 
But,  to  require  that  ^-measurements  for 
geometrical  control  be  given  a  negative  sign 
may  lead  to  frequent  errors  of  omission. 
Therefore,  the  model  is  programmed  to 
accept  positive  ^-measurements  even  though 
they  are  made  downward  from  the  x-axis. 


Hydraulic  boundary  conditions 

The  model  simulates  hydraulic  boundary 
conditions  of  the  following  types: 

1.  Hydraulic  head  on  any  boundary  (may 
vary  hydrostatically  along  vertical 
boundaries) . 

2.  Steady  flux  across  soil  surface 
boundary  only  (infiltration  or  evapotrans- 
piration  rates) . 

3.  Impermeable  condition  on  any  boundary 
(may  also  be  the  vertical  streamline  boundary 
between  two  halves  of  a  symmetrical  flow 
region) . 

Type  1  is  the  so-called  Dirichlet  boundary 
condition.     Types  2  and  3  are  each  imple- 
mented in  terms  of  the  hydraulic  gradient 
perpendicular  to  the  boundary,  called  the 
Neumann  boundary  condition.     Many  porous 
media  flow  regions  have  boundaries  that  are 
combinations  of  the  Dirichlet  and  Neumann 
types  and  thus  belong  to  the  general  classi- 
fication of  mixed  problems  (in  the  context 
of  elliptic  partial  differential  equations) . 

A  unique  solution  is  assured  for  Dirichlet 
and  mixed  problems  but  not  for  the  Neumann. 
Greenspan  (4)  and  Remson  and  others  (7) 
note  that  nonuniqueness  of  a  Neumann  problem 
is  limited  to  an  unknown  additive  constant. 
Thus,  h'  =  h  +  a  would  be  calculated  with  a 
unknown  so  that  the  h-K  relationship  could 
not  be  used.    Therefore,  at  least  part  of 
the  boundary  of  any  porous  media  flow  model 
must  have  a  known  pressure  head. 

Neumann-type  boundaries  also  have  the 
disadvantage  that  their  implementation  in 
finite  differences  can  only  be  done  by 
approximation.    The  resultant  errors  add  to 
the  errors  inherent  in  the  finite  differ- 
encing technique.     In  general,  the  greater 
the  proportion  of  Neumann-type  boundaries, 
the  greater  the  model  error.     This  can  be 
partially  overcome  by  using  smaller  mesh 
increments  near  such  boundaries. ^ 


Later  discussion  will  be  clearer  if  the 
user  understands  that  the  ?z-values  at  all 
nodes  except  those  on  imaginary  rows  and 
columns  and  nodes  on  ^-specified  boundaries 
are  calculated  by  means  of  the  same  version 
of  equation  [4].     To  implement  Neumann-type 
boundary  conditions,  the  proper  ?2-values  at 
imaginary  nodes  are  calculated  and  assigned 
before  solving  for  h  at  the  boundary  node. 

The  equation  by  which  a  flux  boundary 
condition  is  applied  at  the  soil  surface  is 
derived  from  Darcy's  law  as 


h.  .     =  h.  ...  -  Aa(l  + 


[6] 


where    V  =  flux  (LT  ) 

As  =  vertical  separation  between  nodes 
i,j-l  and  i,j+l 
=  cos  a  (At/_  +  hy+) 
Ka  =  average  hydraulic  conductivity 


f-1 


K.    .  +  K.  ... 
^„7  v,3+l 


*See  footnote  3,  page  5. 


When  y  =  0,  equation  [6]  reduces  to  the 
equation  for  calculating  h  for  an  impervious 
surface. 

Dirichlet-type  boundary  conditions  are 
implemented  by  assigning  7z-values  at  appro- 
priate nodes  and  making  certain  that 
equation  [4]  is  not  processed  for  those 
nodes.     The  procedures  for  this  are  outlined 
in  the  next  section. 

In  cases  where  a  water  table  (zero  isobar) 
intersects  such  a  pervious  boundary  exposed 
to  the  atmosphere  as  the  bank  of  a  stream  or 
ditch,  a  surface  of  seepage  develops.  The 
boundary  above  the  surface  of  seepage,  being 
a  boundary  to  an  unsaturated  zone,  is 
usually  considered  impermeable  for  modeling 
purposes.    Water  leaving  the  flow  system 
across  the  surface  of  seepage  is  assumed  to 
run  down  that  surface  as  a  thin  film.  The 
latter  is  usually  considered,  then,  to  form 
a  saturated  boundary  with  a  pressure  head  of 
0  cm  of  water. 

The  position  of  a  water  table  is  usually 
not  known  before  modeling  and,  thus,  the 
limits  of  the  surface  of  seepage  are  not 
known.     Considerable  checking  and  cross 
checking  would  be  necessary  to  determine 
these  limits  by  means  of  the  model,  and  part 
of  these  checks  would  have  to  be  made  for 
all  boundaries  under  all  conditions.  The 
model  was  not,  therefore,  designed  to 
determine  automatically  the  position  of  a 
surface  of  seepage  and,  thus,  will  not 
determine  automatically  the  correct  shape  of 
a  water  table  which  intersects  a  pervious 
surface  exposed  to  the  atmosphere. 

Where  a  surface  of  seepage  is  expected, 
the  following  procedure  will  approximate  its 
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correct  limits  and,  thus,  the  correct  shape 
of  the  water  table: 

1.  Assume  the  position  of  the  zero  isobar 
intercept  on  the  boundary  and  assign  an 
impervious  condition  to  the  boundary  nodes 
above  and  a  zero  pressure  head  condition  to 
the  boundary  nodes  below. 

2.  Run  the  model  to  obtain  the  solution 
for  the  given  boundary  conditions . 

3.  When  the  solution  shows  positive 
pressure  heads  at  boundary  nodes  above  the 
assumed  intercept,  move  the  intercept  higher 
and  run  again  with  boundary  conditions 
revised  accordingly. 

4.  When  the  solution  shows  no  positive 
pressure  heads  above  the  assumed  intercept, 
it  may  have  been  placed  too  high.  This 
possibility  should  be  checked  by  lowering 
the  intercept,  revising  boundary  conditions, 
and  running  again. 

5.  The  best  location  of  the  intercept  is 
the  lowest  node  for  which  the  solution  does 
not  show  positive  pressure  heads  on  the 
boundary  above  the  intercept. 

Subdivision  of  flow  cross  section 

The  key  to  making  this  model  flexible 
regarding  boundary  geometry  and  boundary 
conditions  is  the  concept  of  subdivision  of 
the  cross  section.     The  parameters  defining 
subsections  are  used  to  describe  the  geometry 
and  boundary  conditions  of  the  cross  section 
to  be  modeled.     Specifically,  they 

1.  Direct  the  flow  of  the  program  so  that 
only  appropriate  nodes  are  processed  by 
equation  [4],  that  is,  nodes  outside  the 
boundaries  or  on  ^-specified  boundaries  are 
not  processed. 

2.  Control  the  calculation  of  h  for 
nodes  on  imaginary  columns  and  rows  before 
applying  equation  [4]  to  the  neighboring 
Neumann-type  boundary  nodes. 

3.  Cause  the  program  to  apply  known  or 
calculated  pressure  heads  at  nodes  on 
^-specified  boundaries. 

There  are  two  sets  of  subsections,  one 
for  rows  and  one  for  columns.     The  descrip- 
tion of  one  suffices  to  describe  the  other. 
A  given  row  subsection,  for  example,  con- 
tains a  group  of  rows  which  are  identical 
from  the  program  processing  standpoint. 
That  is,  processing  starts  on  the  same 
column  and  ends  on  the  same  column.  Begin- 
ning and  ending  boundary  conditions  are  the 
same.     Other  such  considerations  as  variable 
Ax  and  Ay  and  soil  unit  geometry  do  not 
affect  the  selection  of  subsections. 

Consider,  for  example,  figure  2  that  por- 
trays a  half  cross  section  of  a  typical 
septic  tank  disposal  line.     (A  similar  cross 
section  will  be  modeled  in  the  sample 
problem  given  later.) 

Boundary  AB  represents  the  soil  surface 
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Figure  2. — Half  section  of  septic  tank  disposal  field 
indicating  finite  difference  mesh  overlay. 


and  may  have  applied  to  it  any  of  the  three 
types  of  boundary  conditions  mentioned. 

Boundary  BC  may  be  a  line  of  symmetry, 
hence  a  stream  line,  if  the  disposal  field 
has  several  lines .     When  there  is  only  one 
tile  line,  BC  may  be  arbitrarily  positioned 
or  positioned  by  trial  and  error  at  such  a 
distance  that  further  outward  movement 
affects  the  solution  little  in  the  region  of 
the  tile  line — in  effect  an  infinite  boundary. 
In  either  case,  the  hydraulic  gradient 
normal  to  the  boundary  would  be  given  a 
value  of  zero  (0) . 

Boundary  CD  may  represent  a  water  table 
by  applying_to  it  a  zero  pressure  head. 
Boundaries  DE  and   I A  are  boundaries  of 
symmetry  and,  therefore,  have  zero  normal 
hydraulic  gradients.     Boundary  EFG 
represents  a  crusted  infiltration  zone, 
point  G  being  at  the  approximate  level  of 
the  fluid  in  the  gravel-packed  trench.  The 
crust  dissipates  a  large  fraction  of  the 
head  in  the  trench  so  that  negative  pressures 
are  maintained  on  the  soil  side  of  the 
crust.     In  the  absence  of  infiltration 
across  the  soil  surface  and  the  development 
of  a  saturated  zone  in  proximity  to  it, 
boundary  GHI  acts  essentially  as  an 
impermeable  boundary,  so  a  0  gradient  may  be 
applied  to  it. 

Pressure  heads  at  nodes  on  ^-specified 
boundaries  CD  and  EFG  are  held  constant; 
hence,  these  nodes  must  be  eliminated  from 
processing  by  equation  [4] .     Pressure  heads 
at  imaginary  nodes  are  calculated  by  special 
equations,  and  those  at  nodes  inside  the 
notch  (parts  of  rows  7  and  8)  are  not  part 
of  the  solution  mesh.     All  these  nodes  must 
also  be  eliminated  from  processing  by 
equation  [4] .     They  are  eliminated  by 
failing  to  include  them  in  subsections. 
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The  first  subsection  consists  of  rows  2, 
3,  4,  and  5.     Processing  of  these  rows 
starts  on  column  2  and  ends  on  column  N. 
For  each  row,  the  beginning  boundary  con- 
dition is  dh/dx  =  0  and  the  ending 
boundary  condition  is  dh/dx  =  0.  Although 
row  2  and  part  of  row  5  are  themselves 
boundaries  of  the  Neumann  type,  equation  [4] 
is  applied  at  each  node  on  them  just  as  it 
is  at  each  node  of  rows  3  and  4  and  the 
nonboundary  part  of  row  5.     This  group  of 
rows,  then,  forms  a  subsection  for  which  the 
following  parameters  may  be  given  as  input 
to  the  model: 

1.  First  row  number 

2.  Last  row  number 

3.  Column  on  which  row  begins 

4.  Column  on  which  row  ends 

5.  Boundary  condition  at  beginning  of  row 

6.  Boundary  condition  at  end  of  row 
Note  that  the  first  four  items  specify  the 
first  and  last  nodes  in  each  mesh  direction 
at  which  equation  [4]  is  solved.  Although 
row  and  column  numbers  have  been  mentioned 
for  illustrative  purposes,  actual  input 
data,  as  discussed  in  appendix  A,  are  in 
terms  of  measured  distances. 

The  beginning  and  ending  boundary  condi- 
tions on  row  6  are  the  same  as  on  the 
preceding  rows,  but  processing  begins  on 
column  6  instead  of  column  2_>     So,  row  6 
must  start  a  new  subsection. 

The  beginning  boundary  condition  on  row  7 
is  a  specified  pressure  head.     This  is 
different  from  the  boundary  condition  on  row 
6  and  also  causes  processing  to  begin  on  a 
different  column.     Either  of  these  circum- 
stances makes  placing  rows  6  and  7  in 
different  subsections  necessary.     So,  row  6 
forms  a  subsection  by  itself.     Row  8  has  the 


same  characteristics  as  row  7.     The  first 
few  nodes  of  row  9  are  part  of  a  boundary, 
as  in  the  case  of  row  5.     But,  in  this  case, 
the  boundary  portion  is  of  the  7z-specified 
type  and  so  equation  [4]  must  not  be  applied 
to  them.     However,  the  portion  of  row  9  that 
is  to  be  processed  has  the  same  character- 
istics as  rows  7  and  8,  so  these  three  form 
the  third  subsection. 

Rows  10  through  M-l  have  common  character- 
istics and  form  a  fourth  subsection.     Row  M, 
being  a  pressure  head-type  boundary,  must 
not  be  processed,  so  it  is  not  part  of  any 
subsection. 

Row  subsectioning  is  illustrated  in 
figure  3a.     Column  subsectioning  proceeds 
using  the  same  criteria  as  row  subsectioning; 
an  example  case  is  illustrated  in  figure  3b. 

As  stated  earlier,  under  the  finite 
difference  scheme  used  in  this  model, 
processing  should  be  from  left  to  right 
along  rows  and  from  the  top  to  the  bottom 
rows  in  succession.     This  is  what  happens, 
with  no  further  user  control,  within  a 
subsection.     But  the  order  in  which  sets  of 
subsection  parameters  are  given  in  the 
punchcard  data  deck  specifies  the  order  in 
which  the  several  regions  of  the  cross 
section  are  processed.     Therefore,  the  user 
must  be  careful  in  arranging  the  order  of 
these  sets. 

The  significant  concern  here  is  that  for 
any  iteration  no  node  should  be  processed 
before  the  node  above  it  is  processed.  For 
example,  if  figure  2  is  rotated  90°  clockwise, 
so  that  the  notch  is  vertically  oriented, 
the  column  subsections  of  figure  3b  will 
become  row  subsections.     The  long  subsection 
IV  would  underlie  subsections  II  and  III  so 
that  both  of  these  must  be  processed  before 
subsection  IV. 
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Figure  3a. — Row  subsectioning. 
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Column  subsection  data  are  used  only  in 
setting  boundary  conditions,  and  the  order 
of  subsectioning  is  arbitrary. 

The  model  is  provided  with  the  facility 
for  setting  hydrostatic  boundary  conditions 
along  vertical  boundaries.     The  boundary 
condition  algorithms  are  flagged  in  the 
program  listing  in  appendix  A.     If  a  user 
wishes  to  distribute  pressure  head  in  some 
other  way,  he  may  remove  the  hydrostatic 
algorithms  and  substitute  others.     As  an 
alternative,  he  may  define  subsections  whose 
boundaries  coincide  with  changes  in  h,  but 
this  may  become  quite  tedious  if  h  varies 
continuously  so  that  each  row  (or  column) 
must  form  a  separate  subsection. 

A  boundary  not  parallel  to  one  of  the 
Cartesian  coordinate  axes  involves  a  number 
of  rows  and  columns  of  differing  length. 
Each  row  and  column  then  would  form  a 
separate  subsection. 


Soil  units 

A  cross  section  may  be  composed  of 
several  different  soil  units.     The  bound- 
aries of  these  units  may  have  complex 
geometry  and  are  given  in  punchcard  input  as 
straight-line  segments.     Unlike  the  cross 
section  boundaries,  soil  unit  boundaries 
need  not  intersect  rows  and  columns  at  node 
points.     However,  the  program  will  convert 
the  straight-line  input  data  so  the  unit 
boundaries  are  represented  in  stairstep 
fashion  during  processing.     Each  soil  unit 
is  considered  homogeneous,  and  a  single  h-k 
table  or  equation  must  be  included  in  the 
punchcard  input  for  each. 

Computer  program 

The  prugram  called  STDY2  will  be  dis- 
cussed in  later  sections  as  a  source  deck  of 
punched  cards.     The  program  listing,  a  flow 
chart,  and  a  glossary  of  variables  are  given 
in  appendix  A.     Not  shown  are  the  job 
control  cards  which  must  precede  and  follow 
the  program.     These  vary  among  computer 
facilities,  and  pertinent  details  may  be 
obtained  from  consultants  at  the  particular 
facility  being  used. 

As  noted  earlier,  USASI  Fortran  was  used; 
but  certain  features  of  the  program  will 
require  modification  according  to  the 
computer  facility  being  used.  Again, 
facility  consultants  will  be  able  to  advise 
on  the  exact  nature  of  the  modifications 
needed.     Program  statements  most  likely  to 
need  modification  are  identified  in  the 
listing  given  in  appendix  A  and  discussed  in 
a  later  section. 


Model  Control  and  Options 

Case  termination 

A  model  run  consists  of  execution  of  the 
program  listed  in  appendix  A  together  with 
input  data  and  required  job  control  cards. 
A  given  run  may  process,  in  sequence,  a 
number  of  different  cases  or  problems.  A 
given  case  or  problem  is  defined  by  a  unique 
combination  of  geometry,  boundary  conditions, 
and  soil  properties. 

Telling  in  advance  how  much  computer  time 
will  be  required  to  reach  convergence  for 
any  given  case  is  not  possible.     Yet,  on  one 
of  the  job  control  cards,  one  must  usually 
specify  a  period  of  time  which,  when  elapsed, 
will  cause  the  run  to  be  automatically 
terminated.     Progress  made  on  the  case  thus 
far  would  be  lost  if  one  underestimated  the 
time  required. 

The  input  Fortran  variable  ESTIME  is  used 
to  prevent  loss  of  the  PHED-array,  provided 
the  user  wants  it  saved,  when  the  elapsed 
computer  time  is  close  to  exceeding  the 
limit  estimated  for  the  case.  KARPCH, 
discussed  later,  is  used  to  effect  saving 
the  PHED-array  in  punched  cards  or  on 
magnetic  tape  in  the  event  that  ESTIME  is 
exceeded.     These  data  may  then  be  used  to 
restart  the  case  in  anotner  run.     The  time 
limit  on  the  job  card  should  exceed  ESTIME 
by  a  small  amount  to  allow  for  job  compila- 
tion, for  recording  the  PHED-array,  and  for 
the  time  interval  between  ESTIME  checks. 

The  time  interval  between  ESTIME  checks 
depends  upon  the  value  of  INTPRT,  a  variable 
equal  to  the  number  of  iterations  to  be 
processed  between  each  time  check.  Experi- 
ence with  the  model  at  a  particular  computer 
facility  will  give  a  user  a  basis  on  which 
to  estimate  ESTIME  and  job  card  time. 

In  a  multicase  run,  an  ESTIME  value  must 
be  given  for  each  case,  so  the  job  card  time 
must  exceed  the  sum  of  the  ESTIME  values. 
If  one  case  exceeds  its  ESTIME  value,  the 
run  will  continue  with  the  next  case  after 
recording  the  PHED-array,  if  desired,  of  the 
case  stopped. 

The  input  variable  ITMAX  is  the  primary 
control  variable  for  case  termination.  When 
starting  a  new  case,  it  is  given  the  value 
of  the  number  of  iterations  to  be  processed 
for  that  case  during  the  first  run.  When 
restarting  a  case,   ITMAX  should  be  equal  to 
the  number  of  iterations  to  be  processed  in 
the  new  run  plus  the  iteration  number 
corresponding  to  the  restart  PHED-array. 
One  cannot  predict  in  advance  how  many 
iterations  will  be  needed  for  convergence, 
so  ITMAX  is  a  guess.     The  user  may  not  want 
to  set  ITMAX  to  reach  complete  convergence, 
because  he  may  wish  to  change  the 
overrelaxation  constant  occasionally. 
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ITMAX  is  checked  at  the  same  frequency  as 
ESTIME.    When  ITMAX  is  exceeded,  processing 
of  a  case  stops.     The  final  PHED-array  may 
be  obtained  in  punched  cards  or  on  magnetic 
tape  if  desired.     Again  KARPCH  effects  this 
saving.     ESTIME  is  a  backup  to  ITMAX  and 
only  stops  the  case  if  the  user  has  under- 
estimated the  amount  of  computer  time 
necessary  to  process  a  number  of  iterations 
equal  to  ITMAX. 

ITMAX  also  controls  the  segmentation  of  a 
case  when  a  predetermined  set  of  changes  in 
the  overrelaxation  factor  is  desired.  Its 
function  in  this  regard  will  be  discussed 
later. 

Initial  PHED-array 

When  considering  a  particular  case  for 
the  first  time,  one  usually  has  only  a  rough 
idea  of  how  h  is  distributed  over  the  cross 
section.     Computational  savings  might  be 
more  than  offset  by  the  cost  of  keypunching 
an  approximate  initial  PHED-array.  The 
model  has  two  alternative  routines  for 
initializing  the  PHED-array  in  the  absence 
of  read-in  data.     In  one  routine,  PHED  is 
given  the  same  value  at  every  node  except 
those  on  ^-specified  boundaries.     This  value 
is  given  by  the  user  as  the  input  variable 
PHEDS.     This  routine  is  used  for  a  case  if 
the  user  gives  the  input  variable  INISIG  the 
value  0.     Any  other  value  causes  the 
alternative  routine  (below;  to  be  used. 

The  other  routine  assigns  PHED-values 
that  are  distributed  smoothly  in  a  direction 
parallel  to  the  y-ax±s  of  the  Cartesian 
coordinate  system.     It  uses  the  input  variable 
ELEV,  which  is  defined  in  appendix  A.  This 
provides  a  starting  estimate  of  the  PHED- 
distribution  that  may  have  some  advantages 
when  the  flow  system  is  essentially  one  of 
drainage  toward  the  water  table. 

The  more  closely  the  initial  PHED-array 
approximates  the  converged  (solution)  array, 
the  fewer  the  iterations  needed  for  conver- 
gence.    If,  somehow,  one  has  an  initial 
PHED-array  from  which  to  start,  it  may  be 
given  as  part  of  the  input  data  via  either 
punch  cards  or  magnetic  tape.     This,  in 
effect,  occurs  when  restarting  following  a 
run  that  has  not  reached  convergence. 

When  the  PHED-array  is  to  be  initialized 
using  data  on  cards  or  tape,  the  input 
variable  KAREAD  must  be  given  the  value  1. 
Any  other  value  will  cause  one  of  the  two 
other  options  discussed  to  be  used. 

When  an  input  PHED-array  is  in  punch 
cards,  then  the  input  variable  IFILE  must 
have  the  value  0.     Data  on  a  magnetic  tape 
are  arranged  in  "files,"  one  PHED-array  to  a 
file.     For  each  restarting  case  of  a  new 
run,  IFILE  must  be  assigned  a  number  repre- 
senting the  position  on  the  tape  of  the 


restart  file  to  be  read.     Determination  of 
this  position  is  dependent  upon  whether 
preceding  files  on  the  same  tape  have  been 
used  by  an  earlier  case  of  the  same  run. 
IFILE  is  defined  in  detail,  and  its  use  is 
illustrated  in  appendix  A. 

Pressure  head — 
hydraulic  conductivity  relation 

The  program  includes  a  table  look-up 
routine  as  one  means  of  determining  hydrau- 
lic conductivity  (K)  as  a  function  of  pressure 
head  (h) .     Linear  interpolation  is  used 
between  tabulated  values.  Alternatively, 
the  user  may  insert  into  the  program  his  own 
routine  for  solving  an  equation  of  the  type 

K  =  K(h) 

The  position  for  this  insertion  is  noted  in 
the  program  listing,  appendix  A.  READ 
statements  for  parameter  input  may  be 
inserted  at  the  same  place  or  among  the 
other  READ  statements  at  the  beginning  of 
the  program. 

The  program  is  set  up  for  the  insertion 
of  only  one  equation.     When  a  user  wishes  to 
use  equations  for  several  soil  units,  he 
must  add  the  logic  necessary  to  change 
equation  parameters  or  the  equation  form 
from  unit  to  unit. 

Soil  property  data  are  given  in  a  multi- 
ple card  group  of  leader  cards  followed  by 
one  or  more  subgroups.     Each  subgroup 
contains  the  h-K  data  and  coordinate  data 
from  which  the  geometry  of  the  soil  unit 
lower  boundary  may  be  specified.     The  first 
leader  card  specifies  the  number  of  soil 
units  and  contains  a  signal  variable.  The 
second  leader  card  gives  the  number  of  h-K 
entries,  NUMLIN(NS) ,  in  each  table  and  the 
number  of  breakpoints  in  the  lower  boundary 
description,  NUMBRK(NS) ,  where  NS  =  1,  2, 
.   .   . ,  5  is  an  index  for  identifying  soil 
units.     Appendix  A  gives  a  more  detailed 
definition  of  these  terms.     When  the  h-K 
relation  for  a  soil  unit  is  given  in  equa- 
tion form,  then  NUMLIN(NS)  is  given  the 
value  999. 

The  signal  variable  KHPRNT  on  the  first 
leader  card  is  given  a  value  other  than  0 
when  the  user  wants  to  obtain  a  printout  of 
the  hydraulic  conductivity  assigned  each 
node  before  setting  boundary  conditions  at 
the  beginning  of  a  run.     This  feature  may  be 
used  to  check  for  correct  positioning  of 
soil  units  in  the  solution  mesh.    Note  that, 
because  the  #-array  is  printed  before 
boundary  condition  setting,  X-values  at 
imaginary  nodes  do  not  necessarily  correspond 
to  the  /z-values  at  those  nodes. 

Use  of  KHPRNT  t  0  during  restart  results 
in  a  meaningless  X-array.     It  produces  a 
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useful  array  only  when  the  processing  of  a 
case  is  being  initialized  or  if  MCHNGE  /  0. 

If,  during  computation,  h  becomes  smaller 
than  the  smallest  h  in  the  table,  the  case 
will  be  terminated  after  printing  information 
helpful  in  locating  the  problem  node.  For 
some  cases,  however,  the  first  few  iterations 
produce  overshoot  with  subsequent  iterations 
converging  smoothly  toward  a  solution. 
Termination  of  such  a  case  may  be  avoided  by 
adding  to  the  table  an  h-K  pair  for  which  h 
is  smaller  than  the  overshoot  values.  The 
value  of  NUMLIN(NS)  must  then  be  increased 
by  1.     Of  course,  if  the  converged  solution 
contains  /i-values  outside  the  valid  range  of 
the  table,  it  is  considered  a  faulty  solution. 

Because  h-K  tables  usually  occupy  a 
number  of  cards  in  the  input  and  because 
more  than  one  case  may  involve  the  same 
soil,  the  option  of  avoiding  reading  in  a 
new  table  every  time  the  processing  of  a 
different  case  begins  is  convenient.  The 
input  variable  KTABLE,  when  given  the  value 
1,  causes  a  case  to  use  the  h-K  table 
already  in  storage  and  used  during  the 
processing  of  the  previous  case.     Any  other 
value  of  KTABLE  causes  the  case  to  read  and 
store  a  new  table.     The  first  case  of  a  run 
must,  of  course,  have  KTABLE  =  0  or  some 
value  other  than  1. 

Overrelaxation  factor 

As  mentioned  earlier,  the  optimum  (maxi- 
mum) value  of  the  overrelaxation  factor 
i^max)  can  De  determined  for  this  nonlinear 
model  only  by  trial  and  error.     This  could 
be  accomplished  by  running  a  series  of 
separate  cases,  each  with  a  small  number  of 
iterations  and  each  with  a  different  value 
of  the  overrelaxation  factor  (uj)  . 

Processing  one  case  as  a  series  of 
segments  of  a  few  iterations  each  (say  20  to 
50)  where  each  segment  has  a  different 
co-value  is  more  economical  than  processing  a 
series  of  individual  runs.     The  PHED-array 
at  the  end  of  one  segment  serves  as  the 
initial  PKED-array  at  the  beginning  of  the 
next.     Thus,  when  one  has  determined  the 
value  of  Umax,  considerable  convergence  has 
been  achieved. 

Segmentation  is  accomplished  by  giving 
the  input  variable  NOMEGA  a  value  other  than 
0  and  by  adding  segmentation  cards  to  the 
input  deck,  as  outlined  in  appendix  A. 
NOMEGA  must  have  the  value  0  for  a  normal, 
unsegmented  run. 

The  input  variable  ITMAX,  the  main  func- 
tion of  which  was  discussed  previously,  is 
used  to  terminate  the  processing  of  each 
segment  and  to  terminate  the  segmented  case 
itself.     Values  for  segments  other  than  the 
first  are  given  in  the  same  series  of 
segmentation  cards  as  are  subsequent  OMEGA- 


values.     ITMAX  for  each  segment  after  the 
first  must  be  equal  to  ITMAX  for  the  pre- 
ceding segment  plus  the  number  of  iterations 
to  be  performed  in  the  segment  in  question. 
When  segments  of  30  iterations  each  are 
processed,  for  example,  then  ITMAX  =  30,  60, 
90,   .   .   .  for  segments  1,  2,  3,   .   .  . 

To  terminate  a  segmented  case,  an  extra 
segmentation  card  must  follow  that  for  the 
last  segment  and  must  contain  ITMAX  =  0. 
The  corresponding  OMEGA  may  be  blank  or  have 
any  value.     As  in  unsegmented  cases,  ESTIME 
is  given  only  once  and  will  terminate  the 
segmented  case  (with  the  option  of  restart 
data  in  cards  or  tape)  if  its  value  is  an 
underestimation  of  the  time  needed  to 
process  the  total  number  of  iterations 
wanted  for  the  case. 

As  noted  earlier,  in  this  nonlinear  model 
instability  may  develop  when  w  >  u>max-  The 
^-arrays  at  the  end  of  segments  in  which  u 
was  too  large  will  not  be  useful  if  the 
fluctuations  covered  too  great  a  range.  To 
preserve  any  progress  made  toward  conver- 
gence, the  model  stores  the  PHED-array  at 
the  end  of  each  segment  on  punched  cards  or 
on  magnetic  tape,  provided  KARPCH  =  1,  as 
discussed  later.     The  most  advanced  PHED- 
array  free  of  excessive  fluctuation  can  then 
be  used  to  restart  the  case  in  a  later  run. 

Model  output 

Model  output  consists  of  printed  material 
and  data  in  punched  cards  or  on  magnetic 
tape.     Examples  of  printed  output  will  be 
given  with  the  sample  problem  discussed 
later.     The  main  objective  of  running  STDY2 
is  to  obtain  distributions  of  pressure  head 
(h)  and  hydraulic  head  (H) .     From  these  two 
distributions,  one  can  deduce  almost  anything 
he  needs  regarding  water  content  and  hydraulic 
status  of  the  modeled  system. 

The  h-  and  ^-arrays  may  be  quite  large, 
and  the  model  is  provided  with  options  to 
control  their  printing.     When  the  input 
variable  IPSIG  is  given  the  value  1,  the 
initial  PHED-array  will  be  printed.  Any 
other  value  will  suppress  printing.    When  the 
input  variable  ILSIG  is  given  the  value  1, 
the  final  PHED-array  will  be  printed.  Any 
other  value  will  suppress  printing.     When  a 
case  terminates  because  ESTIME  is  exceeded, 
the  final  PHED-array  will  not  be  printed. 
When  ILSIG  =  1,  PHED-arrays  will  be  printed 
after  processing  each  segment  of  a  segmented 
case. 

Imaginary  rows  and  columns  are  printed  in 
the  PHED-  and  HEAD-arrays .     Nodes  on  imagi- 
nary columns  do  not  reflect  the  hydraulic 
condition  of  the  neighboring  boundary  col- 
umns.    Nodes  on  imaginary  rows  have  values 
that  are  dependent  on  Neumann-type  boundary 
conditions  along  the  neighboring  boundary 
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rows.     For  example,  if  a  top  boundary  row  is 
impermeable,  HEAD-values  at  imaginary  nodes 
above  it  will  be  equal  to  the  HEAD-values  at 
the  nodes  on  the  first  row  below  the  bound- 
ary.    If  a  top  or  bottom  boundary  is  partly 
Neumann  and  partly  Dirichlet,  then  the 
imaginary  nodes  next  to  the  Dirichlet  bound- 
aries will  have  meaningless  values.  One 
should  keep  in  mind,  then,  that  the  real 
boundaries  within  a  PHED-  or  HEAD-array  may 
coincide  with  row  2  and  column  2  and  with  the 
next  to  last  row  and  the  next  to  last  column. 

The  final  PHED-array  at  the  end  of  a  run 
may  optionally  be  obtained  in  punchcard  or 
magnetic  tape  form.     For  convenience,  these 
data  are  called  restart  data  in  this  report. 
These  data  may  also  be  used  as  input  for  such 
other  programs  as  convergence  checking 
discussed  later  or  machine  plotting  to 
produce  isobars  or  to  convert  h  to  H  for  the 
purpose  of  plotting  equipotential  lines. 

When  the  input  variable  KAEPCH  is  given 
the  value  1,  restart  data  on  punched  cards  or 
magnetic  tape  will  be  obtained.     Any  other 
value  will  suppress  this  form  of  output. 
When  the  input  variable  IFILE  is  given  the 
value  0,  the  output  will  be  in  card  form. 
Any  other  value  will  result  in  writing  on 
magnetic  tape  provided  the  proper  job  control 
cards  have  been  included  so  that  tapes  will 
be  mounted.     Computer  facility  personnel  must 
be  consulted  for  information  on  tape  han- 
dling.    The  user  will  probably  want  magnetic 
tape  for  storage  when  the  solution  mesh  is 
larger  than  1,000  cards  for  the  PHED-array. 
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Figure  4. — Sample  problem  flow  region  with  boundary 
conditions . 


Sample  problem 

A  small-scale,  porous  media  cross  section 
that  has  a  geometry  similar  to  that  of 
figure  2  was  modeled  as  an  example.  It, 
along  with  the  boundary  conditions,   is  shown 
in  figure  4.     The  small  scale  was  selected  so 
that  a  user  may,  at  small  expense,  verify  the 
operation  of  the  model  on  his  computer. 

Figure  5  shows  the  input  data  in  a  con- 
venient assembly  format.     The  input  variables 
are  defined  and  discussed  in  detail  in 
appendix  A.     Before  going  further  with  the 
example,  the  reader  should  familiarize 
himself  with  that  appendix. 

The  sample  solution  was  accomplished  in 
two  runs.     One  run  initialized  the  problem 
and  was  segmented  to  try  various  overrelaxa- 
tion  factors.     The  second  run  was  an  unseg- 
mented  restart  of  the  first;  its  co-value 
having  been  assigned  on  the  basis  of  the 
first  run's  results. 

The  input  data  deck  for  the  initialization 
run  consisted  of  card  groups  1-12  and  card 
group  14.     Card  groups  1  and  3  each  consisted 
of  a  single  card  punched  with  the  data  given 
on  their  value  rows  in  figure  5. 

For  the  restart  run,  card  group  14  was 
replaced  by  card  group  13.     Card  groups  1  and 
3  were  replaced  by  cards  containing  the  data 
of  the  rows  marked  "Restart  #1"  in  figure  5. 

The  printed  portion  of  model  output  is 
illustrated  in  figures  6  and  7  which  contain 
output  for  the  sample  problem.  Printed 
output  has  three  parts:    (1)  initialization 
data,   (2)  convergence  monitoring  data,  and 
(3)  pressure  head  and  hydraulic  head  arrays. 
When  the  solution  has  converged  acceptably, 
the  latter  arrays  contain  the  data  which 
portray  the  model's  estimate  of  the  prototype 
hydraulic  regime. 

Some  data  in  the  initialization  part  of 
the  output  are  unmodified  input  data  printed 
for  the  purpose  of  checking  input  and  for 
recording  a  complete  description  of  the 
conditions  of  the  case.     Other  entries  are 
derived  from  the  input  data.     For  example, 
card  group  2  contains  measured  length  and 
depth  (in  the  sample,  measurement  was  in 
centimeters  because  the  units  of  K  were 
cm/sec)  of  the  cross  section  of  figure  4. 
This  group  also  contains  variables  which 
specify  whether  an  imaginary  row  or  column  is 
needed  at  each  extremity  of  the  cross  section. 
Card  groups  9  and  10  contain  specifications 
for  Ax  and  Az/  in  various  parts  of  the  cross 
section.     Using  all  these  data,   the  model 
determines  the  total  number  of  rows  and 
columns  needed  in  the  solution  mesh.  These 
are  printed  and  identified  as  MROW  and  MCOL, 
respectively. 

Other  noninput  initialization  data  given 
in  the  output  are  of  the  same  type  as  MROW 
and  MCOL,  that  is,  row  and  column  equivalents 
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Figure  5. — Input  data  for  STDY2  sample  problem. 

DATA  SHEET     STDY2   Date      3/74   Page    i    of  7 

Case      Small-Scale  Septic  Tank   Na»e   


Card  Grp  1 

Variable 

ESTUtE 

KAREAD 

KARPCH 

ITER 

TFTT.F. 

IPS1G 

ILSIG 

KTABLE 

MCHNGE 

Format 

F5.0 

15 

15 

Value 

15 

0 

1 

0 

0 

1 

0 

0 

0 

Restart  ill 

15 

1 

1 

150 

0 

0 

1 

0 

0 

Card  Grp  2 

Variable 

LGTH 

DEPTH 

SLOPE 

IMGT0P 

LMGB0T 

IMGLSD 

LMGRSD 

INISIG 

PHEDS 

ELEV 

Format 

F10.2 

F10.2 

F5.2 

15 

15 

F10.2 

F10.2 

Value 

6.00 

7.00 

0.00 

1 

0 

1 

1 

1 

0.00 

7.00 

Card  Grp  3 

Variable 

ITMAX 

INTPRT 

OMEGA 

N0MEGA 

NNODES 

IDBLE 

NCARDY 

NCARDX 

JGEOM 

IGEOM 

Format 

15 

15 

F10.2 

15 

15 

Value 

30 

1 

1.00 

1 

5 

0 

3 

3 

4 

4 

Restart  #1 

175 

1 

1.  60 

0 

5 

1 

3 

3 

4 

4 

Card  Grp  4 

Variable 

C00RDI 

C00RDJ 

C00RDI 

COORDJ 

C00RDI 

COORDJ 

COORDI 

COORDJ 

Format 

F10.2 

F10.2 

Value  Cd  1 

0.00 

0.00 

6.00 

0.00 

4.50 

3.00 

0.00 

6.00 

Cd  2 

6.00 

6.00 

DATA  SHEET       STDY2   Date      3/74   Page  _2_  of  _7_ 

Case      Small-Scale  Septic  Tank   Naae   


Card  Grp  5 

Variable 

COMENT 

Format 

(20A4) 

Value  Cd  1 

STDY2  21 

S0R  STEA 

DY  POROUS 

MEDIA  FL 

OW  MODEL 

Cd  2 

SMALL- 

SCALE  SEI 

TIC  TANK 

DISPOSAL, 

6  x  7  CM 

,  FINER  M 

ESH  NEAR 

JOTCH 

Cd  3 

H0M0GI 

.NEOUS  SOI 

L— IIC  CT 

ILL)  HORI 

ZON,  SAYB 

ROOK,  S. 

L. 

Cd  4 

SAMPLH 

CASE — IN 

ITIALIZAT 

ION  RUN 

Cd  5 

Blank 

Card  Grp  6 

Variable 

LUNITS 

KHPRT 

Format 

15 

15 

Value 

1 

0 

Card  Grp  7 

Variable 

NUMLIN 

NUMBRK 

NUMLIN 

NUMBRK 

NUMLIN 

NUMBRK 

NUMLIN 

NUMBRK 

NUMLIN 

NUMBRK 

Format 

15 

15 

Value 

37 

2 
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DATA  SHEET  STDY2 


Date  3/74 


Page 


of 


Case    Small-Scale  Septic  Tank 


Card  Grp  8a 

Variable 

XBRK 

YBRK 

XBRK 

YBRK 

XBRK 

YBRK 

XBRK 

YBRK 

Format 

F10.2 

F10.2 

Value 

0.00 

/  ■  UU 

0  ■  UU 

7 . 00 

Card  Grp  8b 

Variable 

PTAB 

PTAB 

PTAB 

PTAB 

PTAB 

PTAB 

PTAB 

PTAB 

Format 

E10.3 

E10.3 

Value  Cd  1 

.000+00 

-.300+01 

-.700+01 

-.800+01 

-.900+01 

-.100+02 

-.120+02 

-.130+02 

Cd  2 

-.150+02 

-.160+02 

-.170+02 

-.180+02 

-.190+02 

-.210+02 

-.230+02 

-.240+02 

Cd  3 

-.250+02 

-.260+02 

-.280+02 

-.290+02 

-.300+02 

-.310+02 

-.340+02 

-.380+02 

Cd  4 

-.400+02 

-.430+02 

-.450+02 

-.500+02 

-.650+02 

-.680+02 

-.770+02 

-.100+03 

Cd  5 

-.300+03 

-.500+03 

-.790+03 

-.100+04 

-.100+11 

DATA  SHEET 
Caae  Sir. 

STDY2 

Date 

3/74 

Page    4    of  7 

Be 

ill-Scale  Septic  Tank 

Ha 

Card  Grp  8c 

Variable 

KTAB 

KTAB 

KTAB 

KTAB 

KTAB 

KTAB 

KTAB 

KTAB 

Format 

£10.3 

£10,3 

Value  Cd  1 

.926-03 

.532-03 

.231-03 

•197-03 

.185-03 

.174-03 

.162-03 

.150-03 

Cd  2 

.127-03 

.118-03 

.116-03 

.113-03 

.110-03 

.104-03 

.984-04 

.926-04 

Cd  3 

.903-04 

.856-04 

.833-04 

.810-04 

.787-04 

.752-04 

.671-04 

.579-04 

Cd  4 

.544-04 

.498-04 

.463-04 

.394-04 

.185-04 

.162-04 

.104-04 

.116-05 

Cd  5 

.463-07 

.231-08 

.926-09 

.347-10 

.347-10 

Figure  5. — Continued. 
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DATA  SHEET  STDY2 


Date  3/74 


Page 


of 


Case      Small-Scale  Septic  Tank 


Has 


Card  Grp  9 


Variable 


DYLGTH 


DYLGTH 


DELY 


DELY 


DYLGTH 


Format 


F10.2 


F10.3 


F10.2 


F10.3 


F10.2 


F10.3 


F10.2 


F10.3 


Value 


0.00 


1.000 


1.00 


0.500 


5.00 


1.000 


Card  Grp  10 


Variable 


DXLGTH 


DELX 


DXLGTH 


DELX 


DELX 


DXLGTH 


F10.2 


F10.3 


F10.2 


F10.3 


F10.2 


F10.3 


F10.2 


F10.3 


Value 


0.00 


1.000 


2.00 


0.500 


5.00 


1.000 


Card  Grp  11 


Variable 


S  TARTY 


STOPY 


ENDX 


JETA 


BCLJ 


BCRJ 


F10.2 


F10.2 


15 


15 


F10.2 


F10.2 


Value  Cd  1 


0.00 


2.00 


0.00 


6.00 


0.00 


0.00 


Cd  2 


2.10 


2.90 


3.00 


6.00 


0.00 


0.00 


Cd  3 


3.00 


4.00 


3.10 


6.00 


30.00 


0.00 


Cd  4 


4.10 


6.90 


0.00 


6.00 


0.00 


0.00 


DATA  SHEET  STDY2 


Date  3/74 


Page     6    of  7  


Case    Small-Scale  Septic  Tank 


Naa 


Card  Grp  12 


Variable 


STARTX 


STOPX 


ENDY 


IBETA 


I  ETA 


BCUI 


BCBI 


FLUX 


Format 


F10.2 


F10.2 


15 


15 


F10.2 


F10.2 


E10.2 


Value  Cd  1 


0.00 


2.90 


0.00 


2.00 


0.00 


0.00 


0.00+00 


Cd  2 


3.00 


3.00 


0.00 


2.90 


0.00 


30.00 


0.00+00 


Cd  3 


0.00 


3.00 


4.05 


6.90 


30.00 


0.00 


0.00+00 


3.10 


6.00 


0.00 


6.90 


0.00 


0.00 


0.00+00 


Card  Grp  13 


Variable 


PHED 


PKED 


PHED 


PHED 


PHED 


PHED 


F£2Haa_t_ 


D13.6 


D13.6 


Value 


This  is 


usually  ;  restart 


deck  already  punched  or  wri 


:ten  on  m  gnetic  t 


on  lnit:alizatior  run:  none 


on  restart  run:  ise  restart  deck  produced  by 


;ation  run 


Figure  5. — Continued. 
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DATA  SHEET  STDY2  

Case      Small-Scale  Septic  Tank 


Date  3/74 


Name 


Page    7     of  7 


Card  Grp  14 

Variable 

OMEGA 

ITMAX 

Format 

F5.2 

15 

Value  Cd  1 

1.20 

60 

Cd  2 

1.40 

90 

Cd  3 

1.60 

120 

>    on  in 

itializat 

ion  run 

Cd  4 

1.80 

150 

Cd  5 

0.00 

0  - 

on  reste 

rt  run:  r 

one 

Figure  5. — Continued. 


of  measured  data.     These  row  and  column 
equivalents  are  necessary  because  the  pres- 
sure and  hydraulic  head  arrays  contain  the 
values  of  those  variables  in  row  and  column 
order  but  do  not  reflect  mesh  spacing  and 
thus  do  not  reflect  x,y  coordinate  position. 
The  row  and  column  equivalents,  then,  aid  in 
fixing  the  latter  position. 

In  general,  each  derived  datum  in  the 
initialization  part  of  the  output  corresponds 
directly  to  an  input  entry  in  figure  5.  The 
single  exception  is  in  the  output  labeled 
VARIABLE  MESH  INCREMENT  DATA  FOLLOW  IN 
TRIPLETS  AS  XYZ.     Where  three  pairs  of  values 
were  punched  in  each  of  the  card  groups  9  and 
10,  four  triplets  resulted  for  each.     In  each 
case,  the  final  triplet  specifies  that  the 
last  Ay-  or  Ax-value  continues  all  the  way  to 
the  lower  or  right-hand  boundary,  that  is, 
until  J  =  13  or  I  =  12  (the  values  of  MROW 
and  MCOL,  respectively). 

The  flow  region  was  subsectioned  according 
to  an  earlier  part  of  this  publication. 
Subdivision  of  Flow  Cross  Section.  For 
a  discussion  of  the  measurement  of  some  of 
the  quantities  in  card  groups  11  and  12,  see 
appendix  A,  card  group  11. 

The  solution  mesh  with  row  and  column 
subsections  outlined  is  shown  in  figures  8 
and  9. 


Card  groups  6-8  describe  the  soil  units  in 
the  prototype.  In  this  case,  only  one  soil 
unit  was  used,  so  its  bottom  boundary  coin- 
cided with  the  bottom  boundary  of  the  cross 
section.  Nevertheless,  the  coordinates  for 
two  breakpoints — the  two  bottom  corners  of 
the  cross  section — were  necessary. 

In  some  previous  runs,  fluctuations  in 
pressure  head  with  the  first  few  iterations 
had  produced  values  smaller  than  -10^  cm  of 
water,  so  the  h-K  table  was  extended  by  the 
addition  of  a  much  lower  pressure  head 
(higher  suction). 

In  figure  5,  input  card  group  4  identifies 
five  nodes  for  printing  pressure  head  values 
in  convergence  checking,  a  procedure  explained 
later.     INTPRT  in  card  group  3  specifies  that 
the  PHED-values  at  the  corresponding  nodes 
are  printed  every  iteration. 

NOMEGA  =  1  on  the  value  line  in  card  group 
3  specifies  that  the  first  run  is  segmented. 
ITMAX  and  OMEGA,  on  the  same  value  line,  show 
that  the  first  segment  is  30  iterations  long 
and  that  the  first  w-value  is  1.00.  Card 
group  14  specifies  four  more  segments,  each 
consisting  of  30  iterations  and  each  with  a 
progressively  higher  oj-value. 

The  convergence-checking  data  for  node 
(2,2)  in  figure  6  were  plotted  as  the  upper 
curve  of  figure  10.     Tic  marks  above  the 
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Figure  6. — STDY2  printout  for  first  run  of  sample  problem. 


STDY  2      2D    SOR    STEADY    PCROUS    WED  I  A    FLC»    M  CDEL 

S  H ALL    SCALE    SEPTIC    TANK   DISPOSAL*    6X7    CM.    FINER    MESH    NEAR  NOTCH 
HCMCGENEOUS    SOIL    --IIC    (TILL)    HCRIZCN.    SAYEROOK  S.L. 
SAMPLE    CASE    INITIALIZATICN  HUN 


K A  RE  AD 


KARPCH 


ITER 


IF  ILE 


I MGBO  T 
0 


OMEGA 
1.00 


GECMETRY    AND    BOUNDARY    CONDITION  DATA 


MRO  » 

13 


FCR   S0»  SueSECTICNS 


SUBY  JSTART 

1  2 

2  6 

3  7 


FOR   COLUMN  SUBSECTIONS 
NSUBX  STARTX  STOPX 


EN  DX 
6.00 


3  .  1 
I  START 


JBEG 
2 


J  END 
5 


VARIABLE    MESH    INCREMENT    CATA    FOLLOW    IN    TRIPLETS    AS  XYZ 


■HERE    X  = 


MEASURED    DISTANCE   FROM   AXIS    (DXLGTH  OR 
K0»    OR    COLUMN    NUMBER     (JY    CR  IX) 
INCREMENT   LENGTH    ( DELY   OR   DEL  X ) 


VERTICAL 


HORI ZONTAL 


NCARDX 
3 


-30.00  0.0 


HYDRAULIC    CONDUCTIVITY    TABLE    FOR    SOIL    UNIT  1 
BOTTOM    OF    UNIT     LIES    ALONG   STRAIGHT   LINES   CONNECTING    THE   FOLLOWING  COORDINATES 
AS    IX.Y)    MEASURED    FROM  AXES 

0.0  7.00  6.00  7.00 

AS    COLUMN    AND    CO*    NUMBER  (I.J) 


7.00 
6.00 


13  1 . 000 
12  1.000 


p 

p 

K 

p 

K 

P 

K 

0.0 

0 

. 926E- 

03 

-0. 

1 7CE+02 

0. 

1  16E-03 

-0. 

300E+02 

0. 

787E-04 

-0.770E*02 

0. 1 04E-04 

C. 300E*01 

0 

.53  2E- 

03 

-0. 

1B0E+02 

0. 

U3E-03 

-0. 

3 1 0E*02 

0. 

752E-04 

-0. 1 00E*03 

0.1 16E-0S 

C .7CCE+01 

0 

•231E- 

0  3 

-0. 

190E+02 

0. 

1  1 0  E—  0  3 

-  0. 

340E*02 

0. 

671E-04 

-0.300E*03 

0.463E-07 

C  .80CE  +  01 

0 

. 197E- 

03 

-0. 

21 OE+02 

c. 

1 C4E-03 

-0. 

380E*02 

0  . 

579E-04 

-0.S0OE+03 

0.231E-08 

C.900E+01 

0 

. 1S5E- 

03 

-0. 

230E*02 

0. 

984E-04 

-0. 

400E+02 

0. 

544E-04 

-0.790E+03 

0.926E-09 

0.100E+02 

0 

. 174E- 

03 

-0. 

240E*02 

0. 

926E-04 

-0. 

430E+02 

0. 

498E-04 

-0. 1 00E+04 

0.347E-I 0 

0.120E+C2 

0 

. 162E- 

03 

-  0. 

25CE*02 

0. 

9C3E-04 

-0. 

450E+02 

0  . 

463E-04 

-0. 100E+1 1 

0.347E-10 

0.1 30E+02 

0 

•150E- 

03 

-0  . 

260E*02 

0. 

856E-04 

-0. 

500E*02 

0. 

394E-04 

C  .  150E  +  02 

0 

. 127E- 

03 

-0. 

280E  *02 

0. 

833E-04 

-0. 

650E+02 

0. 

185E-04 

C  .  16CE  +  C2 

0 

. 1 18E- 

03 

-  0. 

2SCE+02 

0. 

810E-04 

-0. 

680E*02 

0. 

162E-0* 

-  c.eoooco+01- 

-C.8CC00D+01- 
-C.7CC0CD*01- 
-0.7CCOCD+01- 
-C.60000D+01- 
-0.  600  C  CD*  0  1- 
-C.55C0CD+01- 

-  C.  55C0CD  +  0  1- 

-  C. 500000*01- 
-0.500000*01- 

-  C  .450000*0  1- 
-0.4500CD*C  I- 

-  C.40000D*0  I- 
-0.400000*0  1- 
-0.350000*01- 
-0.  350000*0  1- 

-  C  .300000*01- 
-0  .3000  00*0  I- 
-0.25000D+01- 

-  0.250000*0  1- 
-0.200000*01- 
-0.200000*01- 
-0. 1 00000*0 1  - 
-C.  1  OCOOD+Ol- 

0.0 
0.0 


0  .  80000D+0I- 
0.800000*01 
C.  700000+0  1- 
0. 70C00C*  0 1 
0.  60C00O+  01- 
0. 600000+01 
C . SEC  C  CO*  01 - 
0  .  550  000  +  01 
0.50OCCD+O1 
0.500000+01 
0  .45000D+0  1- 
0  .  4500  00+  01 
0.40C0CD+01- 
C. 4C0C0D+01 
0  .  350000+0  1- 
0. 350000+01 
0.  300000*02- 
0  .300000  +  01 
0.250000*01- 
0.25000D*01 
0  .200  00D*0  1- 
0. 200000*01 
0.  100000*0  1- 
0.  100000  +  01 
0.0 
0  .0 


STARTING    DISTRIBUTION    CF    PRESSURE  HEAD 

■  0.  8000 00 +  0  1-0. 800 00D+ 01-0. 800000*0  1-0. 800000*0 1-0. 800000*0  1- 

■0.70  00CD+01-0. 70  0  0  00+01-0 .  70  000D♦0  1-0.70  0000♦OI-0.70  00  0D♦01- 
■0.60000D♦01-C.6CCCOD+01-0.60000D♦01-0.60000D+01-0.60000D♦01- 
0.550  0  00+0 1-0. S50  000  +  0 1-0 .55000D+0 1 -0 .550  000  +  0 1-0 .5500 OD+O 1 - 
0.5000CD*01-0.50000D*01-0.50000D*0  1-O.SOOOOO*01-O.SOOOOD*01- 
•0.4500CO+01-0.450C0O*01-0.4  50  00D*0l-0 .450 0 00  +  0 1 -  0 . 45 0 0  OD* 0 1- 

■  0. 40  0  0 OD  *0 1-0 .4  00  000*01  -  0. 4C0O0O +0  1-0. 30000D  + 02-0. 400000  +  01- 
0.35  00  00*01-0. 25  0  COO*  01-0.350000*0  1 -0. 30 0000*02-0. 350000*0  1 - 
0.  300 0  00 +  02- 0.  300 C0O+ 02 -0.3 000 00*02 -0.30 0  000*02-0. 300 0  00*0  1 - 
0.  250 0  00* 0  1 -0.250  COD* 01- 0.2 50 00D*0 1-0. 250 000*0 1-0. 2500 00*0  1- 
0. 200  000  *0 1-0. 200  C00*0 1-0. 200 00D*0  1-0. 200000+ 01-0. 200000*0  1  - 
0.1000 00 *01-0. 1 00  000*0 1-0.  100 000*0  1-0.  100 000*0 1-0.  1 000  00*0 1 - 
0.0  O.C  0.0  0.0  0.0 


0. 800000+01- 
0.70COOD  +  01- 
0.600000*01- 
0. 550000+01- 
0.500000  +  01- 
0.45000D+01- 
0.400000  +  01- 
0 .350000*01- 
0.300000*01- 
0.250000+01- 
O.2O0O0D+01- 
0.  1000OO  +  0  1- 
0.0 


0.8000  0D  +  01- 
0.700000*01- 
0.600000*01- 
0. 550000*01  - 
0  .  5  0  0  0  00  *  01- 
0.4S000O*01- 
0 . 40000D  *0 1 - 
0.350000*01- 
0  .  3  0  0  0  00  +  01- 
0. 250000*0 1- 
0.200000*0  1- 
0. 100000*01- 
0.0 


0. 800000*01 
0. 700000*01 
0.60000D+01 
0.550000  +  01 
0. 500000+  01 
0.450000+01 
0. 40000D+0 1 
0.350000*01 
0 . 300  OOD*  01 
0.250000*01 
0.200000*01 
0. 100000*01 
0.0 
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ITERATICN  NO.  AND  PRESSURE  MEAD  AT  SELECTED  NOOES  AS  IDENTIFIED  3EL0* 
COORDINATES    AS   MEASURED    FROM    AXES  (X.Y) 

O.O*  0.0  6.00.  0.0  4.50 ■  3.00  0.0 

COORDINATES   AS   ROM    AND   COLUMN    NUMBER    (I* J) 

ITER  2*         2  II*         2  9,         7  2.12  11.12 


0 

-C. 

700C0O+C1 

-  C  . 

700000*01 

-0. 

400COO+01 

1 

-0. 

700000*01 

-0. 

700000+01 

-0. 

431640+01 

2 

-0. 

700C0D+01 

-0. 

700000*01 

-0. 

468  730*0 1 

3 

-0. 

700C0D+C1 

-  0. 

700000+01 

-  0 . 

5C626D+01 

* 

-0. 

700000+01 

-0. 

700C0D*01 

-0  . 

53889D+01 

5 

-c. 

7COCOO*C1 

-0. 

700820+01 

-0. 

568140+01 

6 

-0. 

700000*0 1 

-0. 

703260+01 

-0. 

S95e7D»01 

7 

-c. 

7C0C0D+01 

-0. 

707620+01 

-0. 

622560+01 

8 

-c. 

7C0  0  0D«0  1 

-0. 

71-389D+01 

-0. 

648430+0 1 

9 

-0. 

700520*01 

-0. 

72 1 660+01 

-0. 

673490+01 

10 

-0. 

7C165D*01 

-Oa 

731260+01 

-0. 

698C2D+01 

1  1 

-0. 

703420*01 

-0* 

74 163D+01 

-0. 

72213D*01 

12 

-0. 

705830*01 

-0. 

753370+0 1 

-0. 

74S93D*01 

13 

-0. 

7Ce87D*  C 1 

-0. 

7656  8D+01 

-0. 

769310*01 

14 

-0. 

712480*01 

-0. 

77864O+01 

-0, 

792450*01 

15 

-0. 

716630*01 

-0. 

7921 70+01 

-0. 

81S380*01 

16 

-0. 

7  2 1 26D*  01 

-0. 

806230+01 

-0. 

838180+01 

17 

-0. 

726340*01 

-O.e'JrjTBTb+ol 

-0. 

86031D+01 

18 

-0. 

721610*01 

-0. 

835600+01 

-0  . 

881 1 30+01 

19 

-0. 

73767D*01 

-0. 

eS073O+01 

-0. 

90 1 230+01 

20 

-0. 

743890*01 

-0. 

8661 00+01 

-0. 

920860+01 

21 

-c. 

7S045D*01 

-0* 

881680+01 

-0. 

939750+01 

22 

-0. 

7S733D*01 

-0. 

89746D+01 

-0. 

95794D+01 

23 

-c. 

76453D+01 

-0. 

91 344D+01 

-0. 

97494D+01 

24 

-c. 

772C60*C1 

-0. 

929540+  01 

-0. 

991 17D+01 

2S 

-0. 

77991D*01 

-0. 

94571D+01 

-0. 

1 C068D+02 

26 

-0. 

7e8C8D*Cl 

-0* 

961900+01 

-0. 

102180+02 

27 

-0. 

796560*01 

-0. 

978060+01 

1 0362D+02 

28 

-0. 

8C537D+0 1 

-0  . 

994150+01 

105000+02 

29 

-0. 

614470*01 

-0. 

10  1010+02 

-0. 

106320+02 

30 

-0.82387D*01 

-0* 

102600+02 

-0  . 

10760D+02 

-0 .100000+0 1 
-0. 169790+01 
-0.2S2880+01 
-0. 291 5S0+  01 
-0 . 3 13990+01 
-0.33065D+01 
-0.34284D+01 
-0.3S1430+01 
-0. 357600+01 
-0 . 3621 10+01 
-0. 365480+01 
-0.367980+01 
-0. 369850+01 
-0.371290+01 
-0.372420+01 
-0.37333D+01 
-0.374060*01 
-0.374680*01 
-0 .375 19D+0 1 
-0.37563D*01 
-0.37600D+01 
-0 . 376330+01 
-0. 376620+01 
-0 .376880+0 1 
-0.3771  10+01 
-0.377320+01 
-0.377510+01 
-0. 377680+01 
-0.377840+01 
-0.37796D+01 
-0.378 1 2D+0 1 


-0. 100000+0 1 
-0. 104e60+01 
-0 .  1  1  1 64D  +  0 1 
-0.  1  1924D  +  01 
-0. 126580+01 
-0. 134450+01 
-0. 141 440+01 
-0. 14788D+01 
-0 .153800+01 
-0. 15921D+01 
-0.164  1 90+0 1 
-0.1 68760+01 
-0 . 17293D+01 
-0.1 7676D*01 
-0. 1 a028D*01 
-0. 1 e353D*01 
-0 . 1 86530*01 
-0.  16932D+01 
-0.19191D+01 
-0. 194320+01 
-0 . 1 56560+01 
-0. 198640  +  0  1 
-0.20059D+01 
-0.2024 1O+0 I 
-0.2041 10+01 
-0.20570D+01 
-0.207200+01 
-0.208610+01 
-0.20993D+01 
-0.211 170+01 
-0.212340+01 


RE  STAR  T  PUNCHED 


TOTAL    CASE  TIME 


C. 976000  SECONDS. 


CCNT INUE 


■ITH   GMEGA  = 

635460+01  -0. 

648C9D+01  -0. 

€61680+01  -0. 

676390*01  -0, 

89221D+01  -0. 

9C857D+01  -0. 

925450+01  -Ot 

942770+01  -0. 

5604SD+01  -0. 

57e54D+01  -0, 

556870+01  -0. 

101E4O+O2  -0, 

10342D+02  -0. 

1CS30D  +  C2  -0. 

10719D+02  -0. 

109C8O+02  -0, 

1  1058D+02  -0. 

112880+02  -0, 

11477D+02  -0. 

1166SD*02  -0. 

lieS2D*02  -0. 

120380*02  -0, 

12222D  +  02  -Oi 

124040+02  -0. 

12S65D+02  -0. 

12764D402  -0, 

129410+02  -0. 

131 160+02  -0, 

13289D+02  -0. 

134610+02  -0. 


1.20.  ITHAX 
104850+02  -0, 
1071 10+02  -0. 
109360+02  -0. 
1 1 159O+02  -0, 
113770+02  -0. 
1 15910+02  -0. 
11801D+02  -Oi 
120060+02  -0, 
122060+02  -0. 
12401D+02  -0. 
125920+02  -0. 
127780+02  -0. 
129600+02  -0. 
131370+02  -0. 
133C9D+02  -0. 
13477D+02  -0. 
136420+02  -0. 
138030+02  -0, 
139600+02  -0, 
14U4D  +  02  -0. 
142650+02  -0, 
144130+02  -0. 
145580*02  -0, 
14700D+02  -0. 
14640D+02  -0. 
14976D+02  -Oi 
151100+02  -0. 
152420+02  -0. 
15371D+02  -0. 
154580+02  -0, 


=  60 
1 09440+02 
1 1 1 240+02 
1 12560+02 
1  14610  +  02 
1 16190+02 
1 17700*02 
1 19 140*02 
1 2051 0+02 
121840+02 
123110+02 
12434D+02 
125510+02 
1 26640+02 
1 27740+02 
128eiO+02 
1 2984D+02 
13084D+02 
131810*02 
1 32750*02 
133660+02 
134550+02 
135420+02 
136280+02 
13712D+02 
1 37550+02 
138750+02 
13953D+02 
14030D+02 
1 4 1 C5D+02 
141 78D+02 


-0.37S28D+01 
-C.37843D+01 
-0 . 37857D+01 
-0.37869D+01 
-0.37881D+01 
-0.378910+01 
-C.379C2D+01 
-0.3791 1D+01 
-0.37921D+01 
-0.  379290  +  01 
-0 .379380+0  1 
-0 .379450+01 
-0.379520+01 
-0.379580+01 
-0.37964D+01 
-0.37969D+01 
-0.379740+01 
-0.37979D+01 
-0 . 379830+0 1 
-0. 379880+01 
-0.37992D+01 
-0 .379950+01 
-0. 379990+01 
-0.38002D+01 
-0.38005D+01 
-0.3eOC8D+01 
-0.3801 1D+01 
-0 . 3801 4D+01 
-C.38017D+01 
-0 .380200+01 


-0. 215130+01 
•0.21679D+01 
-0.2 1829D+0 1 
-0. 219620+01 
•0.22084D+01 
-0  .221  550  +  01 
-0.22296D+01 
-0. 223890+01 
-0.22475D+01 
-0.2255SD+01 
-0.226300+01 
-0.22700D+01 
-0. 227670+01 
•0.228320+01 
-0. 228950+01 
■0.22956D  +  01 
-0 .230 1 3D+01 
-0. 23069D+01 
-0. 221220+01 
-0  .231  73D  +  01 
-0.23223O  +  01 
-0.232700+01 
-0.23316D+01 
-0.23359D+01 
-0 . 234020+0 1 
-0. 23443D+01 
-0.234830+01 
-0.235210+01 
-0.235580+01 
-0.235940+01 


RESTART  PUNCt-ED 


TOTAL    CASE    TIME    =      1.801999  SECONDS. 


CCNT INUE 


■ITH  CMEGA 

136590+02  - 

138680+02  - 

I4065O+C2  - 

143160+C2  - 

145590+02  - 

14755D+C2  - 

15030D+02  - 

152<3D+02  - 

15493D+02  - 

1S720D+02  - 

159460*02  - 

161690+02  - 

16350D+02  - 

166C7O+02  - 

168220+02  - 

170230+02  - 

172410+02  - 

174440+02  - 

17C440+C2  - 

178380+02  - 

ie027O+02  - 

18210D*02  - 

183880*02  - 

ie56OO*02  - 

ie727D*02  - 

188890*02  - 

190460*02  - 

191970+02  - 

153440+02  - 

154660+02  - 


1.40*  ITMAX 
,  156810+02  -0. 
.15e660+02  -0. 
.160530+02  -0. 
.  162380  +  02  -0. 
. 1641BD+02  -0. 
.  165920  +  02  -0, 
.  167610  +  02  -0. 
. 165260+02  -0. 
.170860+02  -0. 
.  17241D  +  02  -0, 
.172910*02  -0. 
.17537D+02  -0. 
.  176770+02  -0. 
.17812D+02  -0. 
■  175440  +  02  -0. 
.  16C700  +  02  -0. 
.  18 19JD  +  02  -0, 
.18309D+02  -0. 
. ie423D+02  -0. 
.  18532D+02  -0, 
. 1 6638D+02  -0. 
.187400+02  -0. 
.  18639D  +  02  -0. 
.  I  65340  +  02  -0. 
.  190260+02  - C . 
.19  11 50*02  -0 , 
.  1  92C0O*02  -0. 
.  19283D  +  02  -Oi 
.193620*02  -0. 
.  19439D+02  -0, 


=  90 

142540+02 

144C9D+02 

145210*02 

146280*02 

1 47300*02 

1 48280*02 

14922D*02 

150120*02 

1 5097D+  02 

15  1 780+02 

152S6D+02 

1 53300+02 

154010+02 

15469D+02 

1 55340+02 

1  55570  +  02 

1 56580+  02 

1 57160+02 

157720*02 

158270*02 

15e790*02 

159290*02 

1 55  770*02 

1 60240*02 

16C680*02 

161 1 1D*02 

161530*02 

161530*02 

1 62320*02 

162690*02 


-0.38023D*01 
-0 . 3S027D+0 1 
-0.380300*01 
- C. 38033D+01 
-0 . 38035D+0 1 
-C. 38039D+01 
-0. 38042O+01 
-0.38045D+01 
-0 . 380490+01 
-0. 380530+01 
-C. 380560+01 
-0.38O53D+01 
-0.380600*01 
-0.380630*01 
-0.380650*01 
-0.38067D*01 
-C. 380680*01 
-C.38070D  +  01 
-0.380720*01 
-0.380740*01 
-0.3eO75O*01 
-C. 380770+01 
-0 .38078D+01 
-C. 380790  +  01 
-0. 380810+01 
-0.380820+01 
-0.38083O+01 
-0. 380840+01 
-0.38086O+01 
-0. 380870+01 


•0.237290+01 
•0.2378 1D+01 
■0.23839D*01 
•0.238910*01 
■0.239400*01 
■0.23986D+01 
•0.24029D+01 
-0. 240690+01 
•0.241 060*01 
-0.241430*01 
-0.241770*01 
•0.242 1 0D*01 
-0.2424 10*01 
•0.242710*01 
-0.24299D+01 
-0.243260*01 
-0.  243530*01 
-0.243790*01 
-0 .244  030*0 1 
■0. 244270*01 
•0.24450D+01 
-0.244720*01 
-0.244920+01 
-0.245  1  30  +  01 
■0.245320+01 
•0.  2455  1D+01 
•0.245630+01 
■0.24586D  +  01 
•0.246020+01 
■0.246180*01 


Figure  6. — Continued. 
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Figure  6. — Continued. 

RESTART  PUNCHED 


TGTAL    CA EE    T  I  ^E 


2.594CC0  SECCNOS. 


CCNT INUE 


100 
101 
102 
103 
1  04 
105 
106 
1  07 
108 
1  09 
1  1  0 

I  1  1 

I I  2 
1 1  3 

I  1  4 

I I  5 

I  1  6 

II  7 
11  8 
119 
120 


WITH  OMEGA 

19643D+02  - 

198C6D+C2  - 

199740+02  ■ 

2C154D+02  - 

20347D+C2  - 

2C518D+02  - 

2C6e6D+C2  - 

2C6490+02  - 

210010+02  ■ 

2  1  1 4  60  +  0  2  - 

212630+02  - 

214120+02  - 

21536D+C2  - 

21653D+C2  - 

217640+02  - 

218690+02  - 

21968D+02  - 

£206  1D  +  02  - 

22  1490+02  - 

222320+02  - 

223C9D+02  - 

22361D+02  - 

2244  9D+C2  - 

225120+02  - 

225710+02  - 

22626D+C2  - 

22678D+U2  - 

227260+02  - 

22771D+C2  - 

228130+02  - 


=  1  .  6 0  .  I TMA X 
0. 195530  +  02  -0, 
0. 196700+02  -0. 
■0.19769D+02  -0« 
0.  199090  +  02  -0 , 
0.20016D+02  -0. 
0.20117D+02  -0. 
0.202100+02  -0. 
0.20298D+02  -0. 
0.20379D+02  -0, 
0.204550+C2  -0. 
0.20525D+02  -0. 
0-205910+02  -0. 
C. 206520+02  -0. 
0.207L8D+02  -0. 
0.20759D+02  -0. 
0.208C7O+02  -0, 
0.208S2D+02  -0, 
0.20894D+02  -0. 
0.20933D+02  -0« 
0.20970D+02  -0. 
0. 210040+02  -0, 
0.210360+02  -0. 
0.210660+02  -0. 
0.21 0940+02  -0. 
0.21  1200+02  -0. 
0.21 1440+02  -0« 
0.21  1670  +  02  -0. 
0.21 1880+02  -0. 
0.212C80+02  -0. 
0.212260+02  -0. 


=  120 
1  6339D  +  02 
164  C4D  +  02 
164680+02 
1 65260+02 
165830+02 
1  6633D  +  02 
1 66800+02 
167220+02 
1  6759D+02 
16792D+02 
1 68220+02 
16851 D+02 
166770+  02 
169C2D+02 
1 69250+02 
1  6947D+02 
169670+02 
169860+02 
170040+02 
17020D+02 
170360+02 
1  7050D  +  02 
1 7063D+02 
1  70  760+02 
1  70670  +  02 
170980+02 
171 C80+02 
171180+02 
1 71260+02 
1  7  1350  +  02 


■0.380880+01 
■0.380890+01 
■0.38090D+01 
■0  .380920+01 
■0.380930+01 
■0  .3809  50  +  0 1 
■0. 380970+01 

■  C. 38098D  +  01 
■0.38102D+01 
■0. 3ei C4D+01 
•C.38104D+01 
-0 .361 C3D+01 
■0.381 C20+01 
•0  .381 C5D  +  01 
•0.38106D+01 
•0.381 060+01 
-0.38106D+01 
■0.381 C70+01 
-0.381 C7D+01 
■0. 38108O  +  01 

■0.381 ceo+ci 

-0.381090+01 
-0.361 09D+01 
■0.38109D+01 
-0.381  10D+01 
-0.3811 00+01 
■0. 381 10D+0 1 
■0.381 100+01 

■  0. 381 1 1D  +  01 
■0.38111D+01 


-0.247240+01 
-0. 247340+01 
-0.24758D+01 
-0.247770+01 
•0.24793D+01 
-0.248C7D+01 
-0.248210+01 
-0. 24833D+01 
-0. 246440  +  01 
■0.24856D+01 
-0.24867D+01 
-0.248780+01 
-0. 248870+01 
-0.24896D+01 
■0.249C40+01 
-0. 2491 10+01 
-0. 249180+01 
■0.249240+01 
•0.249300+01 
-0.249360+01 
-0.24941D+01 
•  0  .  24946O  +  0 1 
■0  .  24951 D  +  01 
•0. 249550+01 
-0. 249590  +  01 
-0.249630  +  0  1 
-0.24966D+01 
-0. 249700+01 
■0.24973D+01 
-0.249 7 50+ 01 


RESTART  PUNC+EO 


TCTAL    CASE    TIME    =      3.389999    SECOND  5  * 


CCNT  INUE 

121  -0. 

122  -C. 

123  -C 

124  -C. 

125  -C. 

126  -C. 

127  -C. 
126  -C 

129  -C. 

130  -0. 

131  -0. 

132  -0. 

133  -0, 

134  -0. 

135  -0. 

136  -C, 

137  -0. 
136  -0. 

139  -0. 

140  -C. 
14  1  -0. 

142  -C. 

143  -C. 

144  -C. 

145  -C. 

146  -C. 

147  -C. 
14«  -C, 
149  -C. 
150 


-Ci 


WITH  CMEGA 

22857D+02  - 

229C2D+02  - 

229470+02  - 

22996D+C2  - 

230=20+02  - 

220S6D+02  - 

231410+02  - 

231820+02  - 

232160+C2  - 

232470+02  - 

232*50+02  - 

232960+02  - 

233200+02  - 

233400+02  - 

233570+02  - 

233720+02  - 

233830+02  - 

233930+02  - 

234C0O+C2  - 

234050+C2  - 

234C8D+02  - 

234  100+02  - 

234100+02  - 

234C9D+02  - 

234C80+02  - 

234C8D+02  - 

234C8D+02  - 

234C8O+02  - 

234C9D+02  - 

234C9D+C2  - 


1.80.  I TMAX 
0.212550+02  -0. 
0.21265D+02  -0. 
0.21317D+02  -0. 
0.213540+02  -0. 
0.21 3600+02  -0- 
0. 214030+02  -0. 
0. 214210  +  02  -0. 
0.214.360+02  -0. 
0.214S1D+02  -0, 
0.21 4620+02  -0 . 
0.214710+02  -0. 
0.214770+02  -0. 
0.21481D+02  -0. 
0.21482D+02  -0, 
0. 214610  +  02  -0. 
0.214810+02  -0. 
0.21 4630+  02  -  0, 
0.214e5D+02  -0, 
0.21487D+02  -0. 
0.21468D+02  -0. 
0. 214900+02  -0. 
0. 214900+02  -0. 
0.21490D+02  -0. 
0.21 489D+02  -0. 
0.214880+02  -0. 
0.214670+02  -0< 
0.214fc7O+02  -0. 
0.214870+02  -0. 
0.21487D+02  -0. 
0.214e70+C2  -0. 


=  1 50 
171 540+02 
171710+02 
1 71 68D+02 
172C4D+02 
172  180  +  02 
172290+02 
1  72370  +  02 
1 72430+02 
172450+02 
17245D+02 
1  72440+02 
1  72450+02 
1  72460  +  02 
17247D+02 
17249D+02 
1725 10+02 
17252D+02 
172530+02 
1  72S2D+02 
172520+02 
17251 0+02 
172510+02 
172510+02 
17251D+02 
1725  10+02 
172510+02 
1  7251 D  +  02 
1  72510+  02 
17251D+02 
1  7251 D+02 


-0. 381 1 1D+01 
•0. 381 1 1D+01 
-0  .  38  I  1  2D  +  01 
•0.381 120+01 
-0.381 12D+01 
•C  .  381 1 30+01 
-0  .  361 1 4D  +  01 
•0  .38 1 140  +  01 
-0.3811 70+01 
-0  .3ei 1 8D  +  0  I 
■0  .  38 1 130  +  01 
•0. 381 090+01 
-0.38107D+01 
■0.38121D+01 
•0. 381 170+01 
-0.381 130+01 
-0. 381 1 1 D+01 
•0.38113D+01 
■0.  38 1 170  +  01 
■0.3eil4D+01 
-0  .  381 1 30  +  01 
-0. 381 t 3D+01 
-0.38114D+01 
•0  .381 140+01 
•0.381 14D+01 
•0.381 140+01 
-0  .38 1140  +  01 
•0. 381140+01 
-0.381 1 40+01 
-0  .381 140+01 


•0.250250+01 
-  0 . 250 1 40  +  01 
-0.250190+01 
■0.250180+01 
-0. 250150+01 
•0.250 1 10+01 
-0.25008D+01 
-0.250C60+01 
■0.25007D+01 
-0.2501 3D+01 
■0.25017D+01 
■0.2501 9D+01 
-0.250170+01 
-0.2501 70+01 
-0.250160+01 
•0.250 14D+0 1 
•0. 250 13D+01 
-0. 250 1 50+01 
-0. 250150+01 
•0. 250150+01 
•0. 250160  +  01 
•0.25016D+01 
•0.25016D+01 
■0. 250 1 SO+01 
•0. 25015D+01 
■0  .250140  +  01 
-0. 250 1 40+01 
•0. 250 1 5D+01 
-0. 250 1 50+01 
■0. 25015D+01 


RESTART  PLNChED 

TCTAL  CASE  TIME  =  4.195999  SECCNOS. 
ENO   OF  JOB 


curve  show  where  changes  in  (A)-value  took 
place.     A  steepening  of  the  curve  below  each 
tic  showed  that  each  higher  co-value  resulted 
in  faster  convergence.     The  other  curves  in 
figure  10  show  convergence  for  unsegmented 
runs  using  various  co-values.     Inspecting  the 
convergence-checking  data  of  figure  6  shows 
that  with  co  =  1.80,  there  was  a  slight 
tendency  to  fluctuate  in  the  interval  from 
iteration  141  to  iteration  150.  Further 
trials  indicated  that  1.65  was  the  approxi- 
mate cOtf^  for  this  case.     Disregarding  the 
minor  fluctuation  at  the  end  of  figure  6, 
though,   the  PHED-values  seemed  to  have  reached 
a  plateau,  indicating  that  convergence  was 
essentially  complete. 

The  notation  at  the  end  of  each  segment  of 
convergence-checking  data  in  figure  6  indi- 


cated that  restart  data  were  punched  on  cards 
at  the  end  of  each  segment.     To  facilitate 
separating  punched  PHED-arrays,   the  model 
punches  a  card  with  five  asterisks  and  the 
words  END  OF  FILE  after  each  restart  deck. 
This  resulted  from  the  card  group  1  data, 
KARPCH  =  1,  and  IFILE  =  0.     These  data  would 
have  been  written  on  magnetic  tape,  had  IFILE 
0,  but  an  end-of-file  mark  would  not  appear 
on  the  tape  until  the  run  was  terminated. 
See  the  discussion  for  IFILE,  card  group  1, 
glossary  of  input  variables,  appendix  A. 

Because  PHED  fluctuation  near  the  150th 
iteration  was  minor,   the  portion  of  the 
output  deck  corresponding  to  that  iteration 
was  used  as  card  group  13  for  the  second  or 
restart  run. 
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Figure  7. — STDY2  printout  for  second  run  of  sample  problem. 


STDY2      2C    SOR    STEADY    POROUS    MEDIA    FLCW  MODEL 

SMALL    SCALE    SEPTIC    TANK    DISPOSAL.    6X7    CM.    FINER   MESH   NEAR  NOTCH 

HCNCGENEOLS    SOIL   IIC    (TILL)    HCRIZCN,    SAYEROOK  S.L. 

SAMPLE    CASE    RESTART   FROM    ITERATION  150 

5TIME  K  ARE AD  KARPCH  ITER  IFILE  IPSIG  ILSIG 

15.  >  1  150  0  0  1 


LGTH 
6.00 


CEPTH 
7.  00 


I  T  MA  X 

17S 


OMEGA 
1  .60 


GECMETRV  AND  BOUNDARY  CONDITION  DATA 
MCCL  MPOW 


FOR    KOm  SUBSECTIONS 

NSUBY  STARTY 

1  CO 

2  2.10 

3  3.00 


I  END 
11 


FOR    COLUMN  SUBSECTIONS 


3.  10 
ISTART 


BEG  V 
0.0 


VARIABLE    MESH    INCREMENT    CATA    FOLLOW    IN    TRIPLETS    AS  XYZ 

WHERE    X    =    MEASURED    DISTANCE    FROM    AXIS    (DXLGTH   OR  OYLGTHI 
Y    =    COW    OR    COLUMN    NUMBER    (JY    OR  IX) 
Z    =    INCREMENT    LENGTH    (OELY    OR    DELX ) 


-30.00  0.0 


HORI Z0N1AL 


5.00 
5.00 


1  .  000 
1  .  000 


7.00  13 
6.00  12 


1.000 
1.000 


HYDRAULIC    CONDUCTIVITY    TABLE   F  OR    SOIL    UNIT  1 
BOTTOM    OF    UNIT      LIES    ALONG    STRAIGHT    LINES    CONNECTING    THE    FOLLOWING  COORDINATES 
AS    <X.Y>    MEASURED    FROM  AXES 

0.0  7.00  6.00  7.00 

AS    COLUMN    A  N  0    ROW    NUMBER  (I.J) 
2        13  12  13 


0.0 
-0.30CE+C1 
-0.700E+01 
-0.800E+01 
-0.9O0E+O1 
-C.10CE+02 
-0.12OE+02 
-C. 120E+02 
-C.15OE+02 
-C.16  0E+02 


.926E-03 
•532E-03 
•231E-03 
.  197E-03 
.185E-03 
. 1 74E-03 
•162E-03 
. 1S0E-C3 
.  127E-03 
. 1 13E-03 


•0.  170E+02 
-0. 180E+02 
-  0. 1 9  0E+02 
-0.210E  +  02 
-0 .230E+02 
-0.240E+02 
-0.250E+02 
-0.260E+02 
-0.28OE+02 
-0.290E+02 


0. 1 16E-03 
0.  1  13E-03 
0.1 1 OE-03 
0.  104E-03 
0.984E-04 
0.926E-04 
0.903E-04 
0.856E-04 
0. 833E-04 
0.810E-04 


-0.300E+02 
-0.3I0E+02 
-0.340E+02 
-0.  380E+02 
-0.400E+02 
-0.A30E+02 
-0.  4S0E+02 
-0.S00E+02 
-0.6SOE+02 
-0.680E+02 


0.787E-04 
0.7S2E-04 
0.67 1E-04 
0.579E-04 
0.544E-04 
0.498E-04 
0.46  3E-04 
0.394E-04 
0. 185E-04 
0. 162E-04 


-0.770E  +  02 
-0.1 00E+03 
-0.300E+03 
-0.500E+03 
-0.790E  +  03 
-0. 1 OOE+04 
-0. 1 00E+1 1 


.  1 04E-04 
. 1 16E-05 
. 46  3E-07 
.231E-0B 
.926E-09 
.347E-10 
.347E-10 


ITERATION  NO.  AND  PRESSURE  HEAD  AT  SELECTED  NCOES  AS  IDENTIFIED  SELOW 
COORDINATES    AS    MEASURED    FROM    AXES  (X.Y) 


COORDINATES  AS  ROW  AND  COLUMN  NUMBER  (It 
ITER  2.        2  11.        2  9.  5 


1  1  , 


1  2 


ISO 
151 
152 
153 
1S4 
155 
156 
1S7 
158 
1S9 
160 
161 
162 
163 
164 
16S 
166 
167 
168 
169 
170 
171 
172 
173 
174 
17S 


•C.234C9D+C2 
■C. 234090  +  02 
•C.234C9O+02 
•C.234C90  +  02 
•  C .234  C8D+02 
•C.224C80+02 
■C.234C8D+02 
•C.234C8D+02 
•C.234C8O+02 
-0.234C8D+02 
•0. 234  C8D  +  02 
•0.234080*02 
■0.234C8D*02 
-0.234C8D*02 
•0.234C8D+02 
-0.234C8O+02 
■0.234C7D*C2 
•0 .234  C70*02 
-C.234C70+C2 
-0.234C7D*02 
-0.234C7D+02 
-0.234C7D+02 
■0 .234  C7D  +  02 
-C .234  C7D  +  02 
-C.234C7O*02 
-0.234C7O+02 


■0.  21  487D  +  02 
■0. 214870*02 
■0.21  4870*02 
■0.  21  487D*  02 
•0  .2  1487D*  02 
■0.21 487D  +  C2 
■0.2 1 4t7D*02 
■0.21 467D*02 
■0.21 4870+  C2 
■0.21 4870+02 
■0.21 487D*02 
■0.2  1 487D*02 
-0 .21 467D+02 
•0.214e7D*02 
■0.21 4870*02 
■0.21 4870*02 
■0.214E7D*02 
■0.21 467O*02 
-0.21  4870*02 
■0.21 4870*  02 
■0.2148  70*02 
-0.214670*02 
-0.21 487D+02 
-0 . 2 14670*02 
-0.2148  70*02 
-0. 21 4870*02 


-0. 17251D*02 
-0. 172510*02 
-0.172510*02 
-0. 172510*02 
-0.172510*02 
-0.172S1D*02 
-0.172510*02 
-0 . 17251 0*02 
-0. 172510*02 
-0.172510*02 
-0. 172510*02 
-0. 17251 0*02 
-0. 17251D*02 
-0.172510*02 
-0.172510*02 
-0. 17251D»02 
-0. 172510*02 
-0. 17251 0*02 
-0. 17251 D*02 
-0.  172510*02 
-0.172510+02 

-  0 • I  72510+02 

-  0. 1725 1D  +  02 
-0.172510+02 
-0.17251D+02 
-0. 172510+02 


■0.381 
■0.381 
•0  .38  I 
■0.381 
•0.381 
■0.381 
•0.381 
■0.381 
■0.381 
0.381 
-0.381 
■0.381 
■0  .  38  1 
■0.381 
-0.381 
-0.38  1 
-0. 381 
-0.381 
■0.381 
-0.381 
-0.381 
-0.381 
■0.381 
-0 . 381 
-0.381 
-0.381 


140+01 
14D+01 
140+01 
1  4D+01 
14D+01 
14D+01 
140+01 
140+01 
14  0+01 
14D+0 1 
140+01 
140+01 
14D+01 
14D+01 
14D+0  1 
140+01 
1 40+01 
140+01 
140+01 
14D+01 
140+01 
140*01 
140*01 
140*01 
1 40*01 
140*01 


-0.250150*01 
-0. 250150*01 
-0  .250  150*01 
-0. 250 1 50+0 1 
-0 . 250 1 50+01 
-0.250150*01 
-0.2S015D*01 
-0 . 250 1 50*0  1 
-0 . 250 1 SD*01 
-0 .2501 50*01 
-0. 250 1 50*0 1 
-0. 2501 5D+01 
-0.250150*01 
-0.250150+01 
-0. 250 1 50+01 
-0 .250 1 5D+01 
-0. 250 1 SO+01 
-0. 250150+01 
-0.2S015D+01 
-0.250150+01 
-0.  250  1  50  +  01 
-0.250150+01 
-0.2S01SD+01 
-0.2S0 1 50+01 
-0 . 250 1 5D+01 
-0. 250 1 50+01 
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Figure  7. — Continued. 


1  -0 .8000 CD+0 1- 
-0.221920+02- 

2  -  0  .700000  +  0  1- 
-0.21 4870+02- 
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.350000*01 
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.  1  10620*02 
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PRESSURE 
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-0.23392D+02- 
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•0.21941D  +  02- 

•0. 214510+02- 

-0.20941D  +  02- 

•0  .400000+0  1- 

0.  250000  +  01  - 

0.  30O00O  +  02- 

-0. 1 874 10+02- 

-0.1  09820  +  02- 

•0.377740  +  01- 

0.  0 


HEAD    DISTRIBUTION    AFTER         175  ITERATIONS 

0. 244 C6 0+0  2-0.2435 9D +02-0. 24230O+0 2-0. 239200+ 0  2- 0.2347 20+ 02- 
0. 23 317C+0 2-0. £221*0+02-0. 230400+02-0. 227730+0 2- 0.2243 70+02- 
0.224C6C+0 2-0. 2235 90  +0  2-0. 2223 00  +  0 2-0. £  1 9 20D  +  02- 0 . 2  I  4 720+ 02- 
0. 219890  +  02- 0. 220520  +0 2- 0 . 22 0 5 70+ 02- 0 . 2 1 7060+ 0 2- 0. 2 1  0460+02- 
0 . 2 1 5 4 50+ 02-0 .2 1 76 10+0 2-0 . 224 0 40+ 0 2- 0 . 2 1 7690+ 0 2- 0 . 2 06 6 70+  02- 
0.20989C  +  0  2-0. 210S2O+0  2-0. 2408  70 +  0  2- 0.22331 0+0  2-0.  20  285D+02- 
0.400000  +  01-0. 4000  00 +01-0.  30000D  +  02-0.  2334  7t>+  02-0.  1  96  0  3O+02- 
C.3SC  COD* 01-0. 3S000O+0 1 -0 . 30 0 000 +02 -0 . 2233 7C+0 2- 0 . 1 784 00 +02- 
0. 30 C  C 00*02 -0.30000D*0 2-0 .300000*0  2-0 ■  193950*02— 0.  1 48  5  20*02- 
0.1 84 160*0 2-0. 178700*02-0. 165710*0 2-0. 1 3  32  60*02-0. 1  0 9530+ 02- 
0. 106340+02- 0.10 183D+02-0. 942790+01-0. 83 24 00*01-0. 7307 7D +01- 
0.364Seo  +  01-0. 351 040+0 1-0. 332* 10  +  0 1-0. 31 0000  +  0 1-0. 28 e75D+0 I  - 


O.C 


0  .  0 


0.0 


0.0 


0.229920+02- 
0. 220860*02- 
0 .20992D+02- 
0. 203500+02- 
0. 1 95990*02- 
0.  1 86370*  02- 
0.  1  72510*02- 
0.  151680+02- 
0.  124940*02- 
0.9425SD+01- 
0.6562SD+01- 
0 . 271 8*0+0 1- 
0  .  0 


0.225830*02 
0.  21  7840*02 
0.205830*02 
0 . 1 97780*02 
0. 18778D*02 
0. 1 74880*02 
0.157830*02 
0. 1 36490*02 
0. 1 1 1 550  +  02 
0.8491 1D*01 
0.608170*01 
0.259830*01 
0.0 


RESTART 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 

lea 

189 
190 


PUNCHED 
0.234C70*02 
0.234070*02 
C.234C70*C2 
C.234C7D+02 
C. 234  C7D*  C2 
C.234  C7D+02 
0 .234070*02 
0.234  C  7D*02 
0.234C7O*02 
0 . 234  C7O  +  02 
0.224C7D+C2 
C.23*C7D*02 
0.234  C7D+02 
C.224C7D  +  C2 
0.23«C7D+02 


-0.21 48 70+02 
-0.21*670+02 
-0.2  146  70+C2 
-0. 21 4t 70+02 
-0.2 1 4870+02 
-0.214fc7D*02 
-0.214870*02 
-0 . 21 487D+02 
-0.2 146 70+ 02 
-0. 214870+02 
-0.2 1 4e70+  02 
-0 . 21 4870+02 
-0.21467D+02 
-0.214870+ C2 
-0 .2 14870+02 


•0. 172510+02 
•0.17251D+02 
-0. 17251 0+02 
•0  .  17251D  +  02 
-0 . 1 7251 D+02 
•0. 172510+02 
•0. 172510+02 
•0. 17251D+02 
-0. 172E1D*02 
•0 .172510*02 
•0.17251D+02 
•0. 1725 10+  02 
•0  .  17251  D  +  02 
■0. 172510+02 
•0 . 1 72510+02 


-0.381 140+01 
-0 .38 1 140+0 1 
-0.381140+01 
-0  .  38  1  14D+0  1 
-0  .38 1 1*0+01 
-0.3811 40*01 
-0.38114D+01 
-0.38 11*0+01 
-0.3eil4O+01 
-0 .38 1 1 4D+0 1 
-0. 381140  +  01 
-0.38  11 »O+01 
-0.38U4D+01 
•0.3811*0+01 
-0 . 38 1 14D+01 


-0.2S015O+01 
-0. 250 1 5D+01 
-0.2501SD+01 
-0. 250 1 5D+01 
-0.250 150+0 1 
-0.2501SD+01 
-0.25015D+01 
-0.250  1  5D  +  01 
-0.25015D+01 
-0.2501SO+01 
-0.25015D+01 
-0.25015D+01 
-0.2501SO+01 
-0 .250 1 50*01 
-0.2501SD*01 


1  -0.8000CD  +  01- 
-0.221920*02- 

2  -  C.7CC00D  +  0  l- 
-0  .21  487D+02- 

3  -0.600000+0  1- 
-0.2C192D+  02- 

«  -0. 550000+01- 
-0.1926  10+02- 

5  - C.SC00CD+O1- 
-0.1 809 10+02- 

6  -C.45C00D  +  01- 
-0.  166070+02- 

7  -C.40000D+01- 
-0.  147770+  02- 

a  -  0. 350000  +  0 1  • 
-0.  12679D+02- 

9  -  C.30C0CD+01- 
-0.10347D+02- 

10  -C.25COOD+01- 
-0.7e64  10  +  01- 

11  -C.2C0  00D+01- 
-  0.572920*01- 

12  -0.  IOO0OD+O1- 
-C.25015D+01- 

13  C.C 
0.0 


0  .  244230+  02- 0 
0 .800000+0 1 
0.23*070+  02-0 
0. 700000+01 
0 .22*230+02-0 
0. 600000+01 
0 .2193 10+02-0 
0.  550000*01 
0 .2 1*350*02-0 
0.50000D+01 
0. 2093 1D+02-0 
0.450000+01 
0.4000  CO  +  0 1-0 
C.40000D+01 
0 . 350000+0 1-0 
0. 35000D+01 
0 . 300000+02- 0 
0.300000+01 
0. 188090+02-0 
0. 250000+01 
0. 1 1062D+02-0 
0. 200000*01 
0.381 1*0*01-0 
0. 100000*01 
0.0  0 
0.0 


PRESSURE 
24421D*02- 

,23392D*02- 

i22«2 1D*02- 

,2  19*10*02- 

21«51D*02- 

209*10*02- 

4000  00*0 1- 

.350000*01- 

300000*02- 

1874 10*02- 

1  09820*02- 

37774D+0 1- 


0. 233  170*02-0. 22 2 140*02- 
0.224  06D  +0  2-0  .22  2  590 +02- 
0.219  89D  +  0  2-0.220  5  2D  +  0  2- 
0. 215*50+02- 0.2176 10+0  2- 
0. 209890+0  2- 0.2 105 2D +0 2- 
0.40  0  00C+0  1-0  .*0  00  00  +  0  1- 
0.  350000  +  0  1-0. 350  0  00 +01- 
0.30  0COC+02-0.3000  0D+0  2- 
0. 184160*0 2-0. 178700*0 2- 
0 .  10  63*D*02-0.  10  18  3D  *0  2- 
0. 36 458D* 01-0 .35 104  0*0 1- 
0.0  0.0 


190  ITERATIONS 
-0. 2*23 OD* 02-0. 2 3920 D*0 2-0. 23* 720* 02- 

C.23  0390+02-0.22  77  3D»0  2-0.22*360+02- 

0. 2 22 3 00*0  2-0.2 192 00* 02- 0.2 1*720* 02- 

0.22  097D*02-0.21706D+02-0.21 0*6D*0  2- 

0.22«0«D*0  2-0. 2 176 90+ 02- 0.2 066 7D+ 02- 

0.2*08  70+02-0. 223  3 10+ C 2- C. 2  02 E5D+C2- 

0. 3000  00+0  2-0. 23  3*70+02-0. 196 020 +02- 

0. 30  0  0  0D+0  2-0. 2233 7D+ 02-0. 1 78*00+02- 

0. 30  0 000+ 0  2-0. 1939SD+02-0. 1 46530+02- 

0. 1657 10+ 02-0.  133  26D+02-0.  1 0  9530+  02- 

0.9*2  790*0  1-0.83  2*00*01-0.  73  0770*01- 

0. 332* 1D+0 1-0. 3 100  00*0 1-0. 2887SD+01- 

0.0  0.0  0.0 


0  .  2  2  9  9  2 0  +  0  2 —  0  i 
0. 22085O+O2-0. 
0 . 20992D+02-0 i 
0 .20350D+02-0. 
0. 195990+02-0  i 
0. 186370*02-0! 
0.172510*02-0, 
0.151 680*02-0 . 
0. 12*9*0*02-0 i 
0.9*2550*01-0, 
0.6S625D*01-0. 
0.271 8*0*01-0, 
0.0  0, 


225830*02 
21 78*0*02 
205830*02 
1 9778D*02 
1 87780*02 
17*880*02 
157830*02 
1 36*90+02 
1 1 1950+02 
8*91 1 0+01 
608160+01 
259830+01 


RESTART  PUNOED 

TOTAL    CASE    TIME    =       1.235555  SECONDS. 


0.0 

-0.1*1 920*02 
O.C 

-0. 1**87D*02 
0.0 

-0.  14  1920*  C2 
C.C 

-0. 1376 10*02 
0.0 

-C. 13091D*C2 

0.0 

-0.121C70*02 
0.0 

-0.  10  7  77D*  C2 
0  .  0 

-0.9 17870*0 1 
0.0 

-0.73*650*0 1 
0.0 

-0.536* 10+01 
0.0 

-0.37292D+01 
CO 

-0.  IS015D+01 
0.0 
0.  0 


•0.  16423O+02-0. 
0.0 

-0. 16407O+02-0. 
0  .  0 

-0. 16423D+02-0. 
0.  0 

•0.  1643  IO+02-0. 
0.0 

•0.  16435O+02-0. 
0.0 

-0.  16*3  1C+02-0. 
0.0 

0.0  0. 
0.0 

0.0  0. 
0  .0 

-0.27C0OO+02-0, 
0  .0 

-0.1 63090+02-0 , 
O.O 

-0.90622D+01-0, 
0.0 

-0 • 28 1 1 *0+01-0. 
0  .0 

0.0  0. 
0.0 


16421D+02-0. 
1 63920+02-0 
164210+02-0 
1644 1D+02-0 
I  «  4510  +  02-0 
1C441D+02-0 


270000+02-0. 
1624  10+02-0, 
8981 80  +  0 1-0  , 
277740+0 1-0, 


HYDRAUL I C 
164C6C+02-0, 

16317C  +  0  2-0, 

164  060  +  02-0 

1  64e5D+02-0, 

16S450+02-0, 

1 64890+02-0. 


270000+02-0 
159  160+02-0 
863420+01-0 
26458D+01-0 


t- E AO  DISTRIBUTION 
16359D+02-0. 162300+02- 

16214D  +  0  2-0.  16  0390+0  2- 

163590+02-0. 16230D+02- 

165520+0  2-0 .165970  +  02- 

16 76 10+0 2-0. 174 040+02- 

165  520+02-0 . 19587D+ 02- 

0  -0.26000D+02- 

0  -0.265000+02- 

27000D+02-0. 270000+02- 

153700+02- 0.14 07 1D+02- 

8ie260 +01-0. 742790 +01- 

251  040+0  1-0.  232*  10+0  1- 

0  0.0 


0. 159200+02-0. 
0. I5773D+02-0. 
0.  159200  +  02-0. 
0.  162060  +  02-0, 
0.  167690  +  02-0, 
0.  1783  10  +  02-  0. 
0. 19347D+02-0, 
0  .  1 88370  +  02-0 , 
0  .  1 63950  +  02-0  , 
0  .  1 08260+02-0. 
0.632*00+01-0. 
0. 21 0000+01 -0  , 

o.o  o. 


15*720+02- 
1  5*360+  02- 
1  5472D  +  02- 
1 55460+02- 
15667O  +  02- 
1578SD  +  02- 
1  S602D  +  02- 
1*3*00+02- 
1  1853O  +  02- 
8*5350  +  0 1  • 
530770  +  0  1- 
188750+01- 


0. 1*9920+02-0. 
0. 1 508SO+02-0, 
0.  14992D  +  02-0, 
0 . 1 48500+02-0, 
0.  14  5  9  90  +  02-  0, 
0.  141370+02-0. 
0. 1 32SIO+02-0, 
0.  1  16680  +  02-0, 
0.9*9*20+01-0, 
0.692550+01-0, 
0 .«S625O+0 1-0 
0 . 1 71 8*D+0 1-0 , 
0.0  0  , 


l«583D+02 
1  «78»0+02 
K583D  +  02 
1*2780+02 
1  2778D+  02 
129880+02 
1 17830+02 
1 0 1 *90+02 
819*50+01 
5991 1D+01 
408  160+0 1 
159830+01 


END    CF  JC8 
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Figure  10. — Convergence  as  a  function  of  overrelaxation 
factor. 
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Figure  11. — Sample  problem  solution  mesh  showing 
equipotential  distribution  (imaginary  nodes  not  shown) 
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Because  to  =  1.80  created  some  fluctuation 
and  because  oj  =  1.60  did  not,  the  latter  was 
used  for  the  restart  run.     Complete  conver- 
gence seemed  nearly  achieved,  so  the  restart  . 
run  was  allowed  only  25  iterations  followed 
by  an  additional  15  for  detailed  convergence 
comparison.     The  need  for  15  additional 
iterations  and  a  second  restart  deck  was 
signaled  by  IDBLE  =  1  in  card  group  3. 

Figure  7  contains  initialization  data, 
most  of  which  are  identical  to  those  of 
figure  6.     The  exceptions  reflect  the  changes 
made  in  card  groups  1  and  3  before  restart- 
ing.    The  convergence-checking  data  show 
that,  on  the  basis  of  the  five  selected 
nodes,  more  than  acceptable  convergence  was 
reached  before  the  175th  iteration. 

Node  by  node  comparison  of  the  two  PHED- 
arrays  (one  at  the  175th  iteration,  the  other 
at  the  190th)  shows  that  the  extra  15  itera- 
tions resulted  in  only  six  values  being 
changed  by  1  in  the  fifth  significant  digit. 

Note  that,  because  the  left,  top,  and 
right  boundaries  are  all  impermeable,  the 
left-hand  column,  the  top  row,  and  the  right- 
hand  column  are  all  imaginary.     So,   in  the 
PHED-  and  HEAD-arrays,  the  four  outer  corners 
of  the  cross  section  are  at  nodes  (2,2), 
(11,2),   (11,13),  and  (2,13)  with  the  values  - 
23.407,  -21.487,  0.0,  and  0.0,  respectively, 
in  the  final  PHED-distributions . 

Data  in  the  hydraulic  head  array  of  figure 
7  were  used  to  plot  the  lines  of  equal 
hydraulic  head  (equipotentials)  in  figure  11. 
Because  of  a  boundary  subject  to  -30  cm 
pressure  head  located  only  3  cm  higher  than 
one  subject  to  0-cm  pressure  head,  the 
hydraulic  head  gradient  was  directed  from  the 
lower  to  the  higher  boundary.     Because  the 
elevation  datum  was  taken  at  the  0  pressure 
boundary,  H  on  that  boundary  was  0  and 
therefore  the  #-values  in  the  flow  region 
were  negative. 

The  sample  cross  section  was  also  run  with 
Ar  =  Az/  throughout  the  solution  mesh  for  0.5- 
cm  and  1-cm  mesh  increment  sizes.  The 
equipotential  lines  of  figure  11  almost 
exactly  duplicated  those  produced  by  the  0.5- 
cm  mesh  increment  case.     For  the  1-cm  mesh 
increment,  however,  the  equipotentials  in  the 
upper  part  of  the  flow  region  were  irregular 
in  shape  and  considerably  displaced  from 
their  counterparts  in  figure  11.     One  may 
conclude,  then,  that  the  irregularity  in  the 
equipotential  for  which  H  =  -17  would  prob- 
ably disappear  if  an  even  finer  mesh  was 
introduced  near  the  notch. 

Determination  of  acceptable  convergence 

Many  hundreds  of  iterations  may  be  neces- 
sary to  reach  convergence  for  large  cross 
sections  in  which  flow  is  partly  unsaturated. 


To  cause  the  program  to  keep  track  of  the 
rate  of  convergence  would  consume  a  signifi- 
cant amount  of  computer  time.     Instead  of 
incurring  such  costs,  this  model  requires 
user  interaction  to  determine  when  acceptable 
convergence  has  been  reached.     As  one  aid  to 
this  end,  the  program  periodically  prints  the 
PHED-values  for  a  user-selected  set  of  nodes. 
The  value  of  NNODES  specifies  the  number  of 
nodes  selected.     Through  use  of  the  input 
variable  INTPRT,  the  user  may  select  how 
often  he  wants  these  values  printed. 

For  example,  for  INTPRT  =  1,  the  selected 
set  of  PHED-values  is  printed  every  iteration. 
For  INTPRT  =  5,  printing  is  obtained  every 
fifth  iteration.     When  the  user  wants  to 
suppress  such  printing,  he  may  give  the  input 
variable  NNODES  the  value  0.     But  recall  that 
INTPRT  also  controls  the  frequency  of  check- 
ing elapsed  time  against  ESTIME  and  should  be 
given  a  reasonable  value  even  if  NNODES  =  0. 

When  selected  nodes  are  printed,  conver- 
gence rates  may  be  examined  by  inspection  or 
by  plotting  the  manner  in  which  PHED  at  a 
node  varies  with  the  number  of  iterations,  as 
was  done  in  the  sample  problem.     If,  after 
many  iterations,  convergence  rate  becomes 
slow,  testing  another  set  of  overrelaxation 
factors  may  be  worthwhile,  because  the 
optimum  value  found  for  the  early  iterations 
may  not  be  optimum  for  later  ones. 

Selection  of  the  printed  nodes  should  be 
aimed  at  finding  the  node  at  which  conver- 
gence is  slowest.     Experience  with  various 
cases  will  eventually  guide  the  user  in  this 
respect,  but  one  should  probably  start  by 
considering  a  node  from  near  each  corner  and 
at  least  one  from  near  the  center  of  the 
solution  mesh.     A  maximum  of  eight  nodes  may 
be  selected. 

Scanning  or  plotting  PHED  as  a  function  of 
iteration  number  for  a  few  selected  nodes  is 
only  an  indication  of  how  convergence  is 
going.     Some  cases  involving  unsaturated  flow 
have  shown  seemingly  complete  convergence  in 
part  of  the  flow  region  while  in  another  part 
the  PHED-values  were  still  changing  appre- 
ciably with  each  additional  iteration. 
Hopefully,  one  or  more  nodes  in  the  still- 
converging  zone  would  have  been  included  in 
the  set  selected  for  periodic  printing.  To 
be  sure  of  this,  after  all  the  printed  nodes 
have  converged  acceptably,  one  should  compare 
two  Tz-arrays  that  are  separated  by  a  few 
iterations . 

Program  COMPAR,  documented  in  appendix  C, 
was  developed  for  the  purpose  of  comparing 
PHED-arrays.     To  get  two  decks  for  comparison, 
a  user  may  restart  a  STDY2  case  for,  say,  15 
iterations  and  compare  the  PHED-distribution 
deck  obtained  with  the  one  produced  by  the 
preceding  run.     Or,  if  he  thinks  he  will  be 
close  to  convergence  at  the  end  of  a  longer 
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run,  he  may  give  the  input  variable  IDBLE  the 
value  1.     This  will  cause  the  program  to 
punch  the  PHED  deck  (or  write  it  on  tape) 
when  ITMAX  is  reached,  then  run  15  more 
iterations  and  produce  another  PHED-array, 
both  as  written  printout  and  in  punchcard  or 
magnetic  tape  form.     When  recording  output  on 
magnetic  tape,  one  should  use  the  IDBLE  =  1 
method.     In  this  way,  he  obtains  the  two 
PHED-arrays  within  one  logical  tape  file. 

Experience  has  shown  that  a  given  aj-value 
may  produce  smooth  convergence  at  most  nodes, 
but  certain  nodes  may  begin  to  show  insta- 
bility as  final  convergence  is  approached. 
This  will  usually  be  detected  when  the 
result  at  the  end  of  an  odd-numbered  itera- 
tion is  compared  with  that  of  an  even- 
numbered  iteration.     If  fluctuation  occurs 
and  if  the  amplitude  is  too  wide,  then  OMEGA 
should  be  reduced  and  further  convergence 
obtained. 

The  subsectioning  facility  of  the  model 
may  be  used  to  save  computer  time  if  one 
portion  of  the  solution  mesh  continues  to 
change  rapidly  while  the  rest  has  apparently 
converged  or  is  changing  slowly.     In  this 
circumstance,  rows  and  columns  may  be  identi- 
fied which  are,  in  effect,  boundaries  between 
the  converged  and  nonconverged  parts  of  the 
solution  mesh.     These  rows  and  columns  may  be 
considered  as  boundaries  of  known  pressure 
head  on  the  nonconverged  part. 

A  restart  run  may  then  be  set  up  in 
which: 

1.  Subsection  parameters  in  input  card 
groups  11  and  12,  glossary  of  input  vari- 
ables, appendix  A  are  given  so  that  only 
nodes  in  the  nonconverged  part  of  the  flow 
region  are  processed.    The  variables  JBETA, 
JETA,  IBETA,  and  IETA  when  on  a  boundary 
between  converged  and  nonconverged  regions 
should  have  the  value  0  for  known  pressure 
head.    When  requirement  4  below  is  fulfilled, 
BCUI,  BCBI,  BCLJ,  and  BCRJ  will  not  influence 
the  solution. 

2.  Nodes  selected  under  control  of  INTPRT 
should  be  specified  inside  the  nonconverged 
part  with  one  or  two  of  them  being  located 
near  the  new  boundaries. 

3.  All  other  such  geometrical  input  data 
as  overall  length  and  depth*  Ax  and  Ay,  and 
so  forth,  remain  unchanged  from  the  run  that 
produced  the  restart  deck. 

4.  The  input  variable  MCHNGE  (card  group 
1)  has  the  value  0. 

5.  The  entire  restart  data  deck,  including 
the  entire  PHED-array  whether  on  cards  or  on 
tape,  is  submitted  with  no  changes  other  than 
those  mentioned  above. 

Such  a  restart  preserves  the  input  PHED- 
values  at  all  nodes  on  the  boundary  of  and 
outside  the  nonconverged  part  of  the  mesh 
whereas  further  convergence  is  obtained  in 
the  zone  of  interest. 


After  reasonable  convergence  has  been 
achieved  in  the  truncated  model,  subsection- 
ing data  for  the  complete  cross  section 
should  be  put  back  into  the  input  data  deck 
and  iterations  continued  until  acceptable 
overall  convergence  is  reached. 

Definition  of  what  constitutes  an  accept- 
able degree  of  convergence  (the  maximum 
acceptable  difference  between  PHED-arrays) 
rests  ultimately  with  the  user.     He  should 
keep  in  mind  that  he  is  running  a  model. 
Regardless  of  how  well  successive  PHED- 
distributions  agree,  his  solution  is  only  an 
approximation  to  the  actual  pressure  distri- 
bution of  the  prototype.     Besides  model 
inaccuracies  associated  with  non-zero  Ax  and 
Ay,  the  complexity  of  natural  prototype 
systems  and  the  difficulties  of  measuring 
their  characteristics  and  properties  are  such 
that  the  modeler  will  be  fortunate  if  he 
achieves  better  than  15-  to  20-percent 
correspondence  between  model  results  and 
prototype  truth.     All  he  should  be  striving 
for,  then,  is  a  reasonable  approximation. 

Anomalies  in  the  isobar  or  equipotential 
patterns  will  sometimes  be  observed.  These 
are  not  necessarily  because  of  incomplete 
convergence.     For  example,  if  the  isobars  or 
equipotentials  plotted  from  final  PHED-  and 
HEAD-arrays  are  quite  irregular  and  show 
abrupt  changes  in  direction,  without  physical 
reason,  the  mesh  increments  may  have  been  too 
coarse. 

Changing  mesh  increment  size 
An  auxiliary  program,  called  CARRY  and 
documented  in  appendix  B,  was  developed  to 
facilitate  changing  mesh  increment  size.  It 
is  useful  when  one  already  has  a  PHED-array 
in  punched  card  form  and  wishes  to  refine  the 
solution  mesh  either  in  total  or  in  some 
localized  area  and  then  obtain  further 
convergence  without  returning  to  a  completely 
arbitrary  starting  distribution.  CARRY 
produces  an  output  PHED  deck  with  the  number 
of  nodes  needed  for  the  refined  mesh.  PHED- 
values  at  extraneous  nodes  in  the  input  PHED 
deck  are  eliminated  from  the  output  deck. 
PHED-values  at  new  nodes  inserted  into  the 
original  mesh  are  interpolated  from  values  at 
neighboring  nodes  in  that  original  mesh.  The 
output  deck,  then,  portrays  the  same  pressure 
head  distribution  as  the  input  deck  but  in  a 
differently  arranged  solution  mesh. 

CARRY  concerns  itself  only  with  nodes 
inside  and  on  the  boundaries  of  the  flow 
region.    Its  output  deck  does  not  contain  the 
proper  values  for  imaginary  nodes.  To 
restart  STDY2  with  a  deck  of  CARRY  output, 
one  must  give  the  STDY2  input  variable  MCHNGE 
some  value  other  than  0.     This  assures  that 
boundary  conditions  are  properly  set  before 
further  solution  begins.    For  all  normal 
restarts,  MCHNGE  should  have  the  value  0. 


25 


Model  dimensions 

The  DOUBLE  PRECISION  and  the  DIMENSION 
statements  near  the  beginning  of  the  program 
listing,  appendix  A,  show  the  number  of 
values  which  can  be  given  each  array  variable 
used  by  the  program.     For  example,  PHED(60,70), 
HEAD(60,70),  and  HCON(6O,70)  indicate  that  a 
solution  mesh  can  have  60  columns  and  70  rows, 
including  those  containing  imaginary  nodes. 
NUMLIN(5)  shows  that  a  maximum  of  five  soil 
layers  may  be  modeled.     PTAB(50,5)  and 
KTAB(50,5)  indicate  that  five  h-K  tables, 
each  with  a  maximum  of  50  lines  can  be  read 
in. 

The  user  is  free,  within  the  limits  of 
computer  storage  available  to  him,  to  change 
these  dimension  values,  thus  changing  the 
number  of  columns  and  rows,  the  number  of 
subsections,  and  so  on,  that  can  be  handled 
in  the  model.    When  making  changes  in 
dimension,  one  should  be  sure  that  dimensions 
in  all  associated  variables  are  changed.  For 
example,  PHED  and  HEAD  are  equivalenced,  so 
that  their  dimensions  must  be  the  same. 
Also,  every  node  has  associated  with  it  a 
PHED-value  and  an  HCON- value,  so  the  dimen- 
sions of  HCON  should  be  the  same  as  PHED  and 
HEAD. 

Computer  facility  adjustments 

The  program  listed  in  appendix  A  was 
written  in  USASI  Fortran,  so  should  be 
compatible  with  most  computer  systems  now  in 
operation.    However,  each  computer  facility 
has  certain  unique  characteristics  that  must 
be  considered  when  implementing  the  model. 
Job  control  cards,  not  shown  with  the  list- 
ing, will  almost  certainly  vary  from  facility 
to  facility.     In  addition,  some  program 
statements  may  also  have  to  be  modified  to  be 
compatible  with  a  particular  system.  The 
statements  likely  to  require  modification  are 
flagged  in  the  listing  by  Ml,  M2,   .   .  . 
The  same  flag  is  given  for  all  statements  of 
like  category.     They  are  discussed  as  follows: 

Ml. — Precision  varies  widely.     The  computer 
on  which  the  listing  was  obtained  and  the 
sample  problem  run  had  single  precision  of 
four  significant  digits.     If  a  computer  with 
eight  or  more  significant  digits  is  used,  the 
DOUBLE  PRECISION  statement  could  be  removed 
to  save  on  storage  requirements.     If  this  is 
done,  the  dimensioned  variables  PHED  and  HEAD 
should  be  added  to  the  DIMENSION  statement. 

M2. — These  statements  pertain  to  time 
monitoring  for  comparison  with  ESTIME.  Most 
computer  facilities  have  a  library  routine 
which  may  be  called  to  start  the  clock  and 
another  to  return  time  accumulation  to  the 
program.     These  are  often  unique  to  the 


facility  and  probably  will  need  changing  when 
implementing  this  program  for  the  first  time 
at  a  given  computer  center.     The  routine  in 
use  with  the  computer  producing  the  listing 
of  appendix  A  and  on  which  the  sample  problem 
was  run  returned  time  in  milliseconds .  The 
variable  TTIME  was  introduced  to  convert  to 
seconds  for  comparison  with  ESTIME.  This 
would  not  be  wanted  at  a  facility  where  time 
is  returned  in  seconds. 

M3. — COMENT  is  a  variable  to  which  an  A- 
format  applies,  that  is,  which  can  give 
alphanumeric  information  to  a  program.  This 
information  is  read  in  as  words  of  a  certain 
number  of  characters  each.    On  the  computer 
used  in  connection  with  this  report,  a  word 
contains  only  four  characters  (20  words  per 
80-column  card) .     The  statement  under  which 
COMENT  is  read  is  such  that  the  total  number 
of  words  read  is  specified  in  the  DIMENSION 
statement,  for  example,  100.     The  FORMAT 
statement  gives  the  number  of  words  per  card 
and  the  number  of  characters  per  word — 20A4. 
Thus,  with  COMENT  dimensioned  with  100,  the 
computer  will  read  100/20  =  5  cards.  When 
running  on  a  computer  that  has  another  word 
length,  both  the  DIMENSION  and  the  FORMAT 
statements  must  be  changed  to  reflect  the 
number  of  words  and  the  number  of  characters 
per  word  in  five  80-column  cards.    The  user 
may  want  to  change  the  number  of  COMENT 
cards.     If  his  FORMAT  statement  is  compatible 
with  the  computer  he  is  using,  then  a  change 
in  the  dimension  of  COMENT  will  change  the 
number  of  cards  required. 

M4. — In  READ (5,   .   .   .),  WRITE(6,   .    .  .), 
and  WRITE(7,  .   .  .),  the  numerals  refer  to 
the  read,  write,  and  punch  units,  respec- 
tively.   One  or  more  of  these  numbers  may 
differ  from  facility  to  facility.    Because  of 
the  number  of  these  statements,  only  one  of 
each  type  was  flagged.    There  are  usually  two 
ways  to  change  the  numeral  assigning  read, 
write,  and  punch  units.     One  may  replace  the 
numerals  in  all  read,  write,  and  punch 
statements  in  the  program  so  that  they 
conform  to  the  standard  assignments  at  the 
facility  being  used.     The  other  method 
involves  the  use  of  job  control  cards  to 
reassign  the  read  function  of  the  computer 
being  used  to  unit  5,  the  write  function  to 
unit  6,  and  the  punch  function  to  unit  7. 

M5. — The  two  statements  flagged  by  this 
symbol  refer  to  reading  and  writing  magnetic 
tapes.     Some  computer  centers  have  special 
and  unique  routines  for  accomplishing  these 
tasks . 

The  status  of  each  of  the  above  possible 
modifications,  as  well  as  questions  regarding 
job  control  card  requirements,  should  be 
discussed  with  consultants  at  the  computer 
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center.    A  user  should  also  have  a  consultant 
check  the  punching  in  the  source  deck  of 
Fortran  statements.    Such  symbols  as  the 
equal  sign  or  parentheses  are  represented  by 


different  punch  combinations  on  different 
computers.     A  conversion  routine  is  often 
available  for  converting  the  punching  to  a 
form  compatible  with  the  machine  to  be  used. 
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Appendix  A : 


STDY2  —  The  Generalized  Steady-State, 

The  general  philosophy  and  the  key  con- 
cepts of  the  model  are  presented  in  the 
preceding  text.     This  appendix  contains 
detailed  documentation  of  the  computer 
program  that  embodies  the  model.  Included 
are  (1)  a  program  listing,  (2)  a  flow  chart 
for  the  program,  (3)  a  glossary  of  input 
variables  arranged  in  the  order  of  their 


Two-Dimensional  Porous  Media  Flow  Model 

appearance  in  the  input  card  deck,  and 
(4)  an  alphabetical  glossary  of  all  other 
variables  used  by  the  program. 

The  following  program  listing  contains  a 
number  of  flags  to  alert  the  user  to  possible 
modifications  that  may  be  necessary  before 
running  the  model  on  his  computer.  These 
modifications  are  discussed  in  the  the 
text,  Computer  Facility  Adjustments. 


Program  listing 

C      STDY2  -    STEADY    STATE   GENERAL   GEOMETRY.    GENERAL  BOUNDARY 

C  CCNDITICN    MODEL .      VARIABLE    DELTA    X    AND   Y.      LAYEREO    SLOPING  SOILS. 

C 

C      S.C.R.  METHOD 
C 

C  3/16/74 
C 

C«»»»«    POSSIBLE    VCDIFICATICN    TYPE  MI. 
C 

0001  DOUBLE    PRECISION   PHEC<60,70),      HEAD(60.70).      HEDA . HEDB . XA • XC . YA . YC 
1         .DELTA .AV.CY . AX . CX . Y B . X B . ELEV . A.B.SINAL. COSAL.XDIST 

0002  PEAL   KTAB.    KAVE.  LGTH 
C 

C***«*   POSSIBLE    MODIFICATICN    TYPE    M2 . 
C 

0003  INTEGER  CHKTM 
C 

C***«*    POSSIBLE    MODIFICATION    TYPE  M3. 

C 

0004  DIMENSION   HCON ( 6 0 . 7 0 ) . C C MENT ( 1 0 0 ) . NUML I N( 5 ) . PT AB ( 50 , 

1  5).    KTAB(50.S).    JY ( 12 ) .DELY( 12 ) . IX( 12) .DELX< 12 1 . JSTART< 1 0) . 

2  JSTOP(10).IBEG(10).IEND(10>. JBET  A {  10 ) . JET A (  1 0 ) . BCL J(  1 0) . BCR J <  1 0 

3  )  .  I  START (  1 0)  . I STOP<  101. JBEG (10)  . JEND (101. I  BETA < 1 0 ) . I ET A { 1 0  >  . 

4  BCUI(10).BCBI(10).FLUX( 10).COCRDI(8). COORD J (8).XBRK(8.5). 

5  YBRKC8.S)  .CYLGTH(12),OXLGTH(12).STARTY(10). STOPY (  10).BEGX(  10). 

6  ENDX(  10), START  X (  1 0)  . STOPX(  10)  . BEGY ( 1  0) .ENDY(  10). I  NODE ( a )  , 

7  JNODE( 8 )  . KD (  12 ) . DEL  K (  12)  . K  END (10),KSTART(10),JBRK(8.5). 

8  I8RK(8.5),SUMBRK(5).BCL(10).BCR(10) 


Text  continues  on  page  40. 
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0005 


CCC6 


00C7 


oooe 

0009 


0C1  c 
001  1 
0012 


0012 
0014 
0015 

0016 
0017 

001  a 

0019 
0C20 

002  1 
0022 
0023 
0024 
0025 
CC26 
0C27 


EQUIVALENCE    ( PHED { 1 . 1 )  . HE  AD (  1  , 1  )  ) 


C 

c 
c 
c 


POSSIBLE    MODIFICATION    TYPE  M2. 


CALL  TASKTM 


POSSIBLE    MODIFICATION    TYPE  M4. 


5   READ    (  5. 1 0,END=15)    E S T I  ME  ,  K ARE AD . K A RPCH . I T E R t I F I LE , 
1  IPSIG.ILSIG.KTABLE.MCHNGE 
10   FORMAT    (F5. 0,615) 
GO    TO  25 

C 

C*****   POSSIBLE    MODIFICATION    TYPE  M4 

C 

15    WRITE  (6,20) 

20    FORMAT    (1H0.1CHEND    CF    JOe  ) 
STOP 

C 

C*****    POSSIBLE   MODIFICATION    TYPE    M2    NEXT   TWO  STATEMENTS. 

C 

25   Ct-KTV  =  0 

TTIME    =  0. 

READ    (5.30)    LGTH, DEPTH  .SLOPE  ,  IMGTOP,  IMGaOT, IMGLSD. I MGRSD. 
1       I NI SIG , PHEDS.ELE V 
20    FORMAT    ( 2F1 0.2 ,F5. 2.51 5  ,2F 1 0 .2 > 

READ    (5.35)    ITMAX.INTPRT. OMEGA. NOMEGA. N NODES .  I DBL  E.NCARDY. 
1       NCARD X . JGEO * . I GECM 
35    FORMAT    ( 2  I  5 , F 1 0  .  2 . 7  I  5 ) 


NYCRD 
NXCRD 
ALPHA 
S  IN  AL 

ens  al 

ITMAXS  = 


NC ARDY 
NC ARDX 
ATAM  SLCPE) 
S  IN( ALPHA) 
COS ( ALPHA) 
ITMAX 
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IF    { NNODES .NE .0 >    READ    (5.40)     (COORDI(K)  ,  COORD J (K)»K=1»  NNODE  S ) 
FORMAT  (8F10.2) 
READ    (5,45)    CCMEN T 


0C2e 
0  C29 
0030 
0  03  1 
0C32 
0033 
0034 
0035 
0036 
0037 
0038 
0C39 
0040 
0041 
0042 
0043 
0  044 
0045 
0C46 


0047 
0048 
0049 
0050 
005  1 
0052 
0C53 
0054 
0  C55 


C****»    POSSIBLE    MODIFICATION    TYPE  M3. 

C 

45    FORMAT  (20A4) 

READ    (5.50)  LLNITS.KHPRNT 
50   F  ORMAT  (215) 

READ    (5,55){ NUMLIN (NS )  .  NUMBRM  NS )  . NS=  1  . LUNI TS ) 
55    FORMAT  (1015) 

DO    60    NS    =  l.LUNITS 

IF    (  NUNLI M NS)  .EG. 999)    GO    TO  60 
IDUM    =  NUMLIN(NS) 
I  DUMA    =  NLMBRK(NS) 

READ  (5.65)  (  XB RK ( K  .  NS )  . Y BRK ( K , NS ) , K= 1 , I OU MA ) 
IF    (KTABLE.EQ. 1 )    GO    TO  60 

READ    (5.70)    (PTAE (IT.NS)  .  IT   =  l.IDUM) 
READ    (5,70)     ( K  TAB    (IT.NS), IT    =  l.IDUM) 
60  CONTINUE 
65    FORMAT( 8F1 0 .2 ) 
70    FORMAT  (8E10.3) 

READ    (5,75)    (DYLGTH(MY),    DEL  Y ( MY ) , MY    =  l.NCARDY) 
READ    (5.75)    ( DXLG TH ( M X  )  , DEL X ( MX )  , MX    =  l.NCARDX) 
75    FORMAT    ( 4(F  10  .2  ,F1 0.3  )  ) 


C 

c*** 

c 


CONVERT    X.Y    COORDINATES    TO    I.J    COORDINATES  *»***»»*»* 

NCARDY    =    NCARDY    ♦  1 

DEL Y ( NC  ARDY)    =    DELY ( NCARCY- 1 ) 

DYLGTHI NCARDY)    =  DEPTH 

NC  ARDX    =    NCARDX    «■  1 

DEL  X( NCARDX)    =    DELX ( NC  A  RCX    -  1) 
DXLGTHI NCARDX )    =  LGTH 
ELEVS    =   E  LE  V 

IF( IMGTOP. EO. 1 )    ELEV   =    ELEV    ♦   DELY ( 1 ) 
IF    ( IMGTOP. EC. 1 )    GO    TO  80 
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0056  JY( 1 )    =  1 

0C57  go  to  es 

0058  80    JY( 1 )    =  2 

0C59  e5    DO    90    MY    =  2.NCARDY 

0060  IDUM    =    ( 0  YLGTH ( MY)    -    DYLGTH( MY— 1  )  )    /  DELY(MY-l) 

0061  90  JY(MY)    =    JY(MY-l)    +  IDUM 

0062  IF    ( I MGBOT.EQ.l )    J  Y  ( NC  A  ROY )    =    JY(NCARCY)    ♦  1 

0063  MRQW    =  JY(NCARDY) 

0064  IF    ( IMGLSD.E0.1 )    GO    TO  95 
006E  IX(1)    =  1 

0066  GO   TO  100 

0067  95    IX( 1 )    =  2 

0066  100    DO    105    MX   =  2.NCARDX 

0069  IDUM   =    (DXLGTH(MX)    -    DXL GT H{ M X- 1 ) )    /  DEUX(MX-l) 

0070  105  IX(MX)    =    IX(MX-l)    +  IDUM 

0071  IF(  IMGRSD.EQ.  1 )    IX(NCARDX)    =    IX(NCARDX)    +  1 
0C72  MCOL    =  IX(NCARDX) 

0073  DO    130    K    =  l.NNCDES 

0C74  SUMX    =  0. 

0C75  MX    =  2 

0C76  IF    ( IMGLSD.EQ. 1 )    GO    TO  110 

0C77  I    =  1 

0078  GO    TO  115 

0079  110  I    =  2 

0080  115  IDUM    =    (CCOROI(K)    +    .00005)    *  1000. 

0081  IF  (IDUM.EQ.O)  GO  TO  125 
0C82  120              SUMX  =    SUMX    +  DELX(MX-l) 

0C83  I  DUMA    =    (SUVX    +    .00005)    *  1000. 

0084  1=1+1 

0Ce5  IF    (  I  ,GF .  IX ( MX  )  )    MX    =    MX    +  1 

0C86  IF    ( IDUMA.GE. IDUM)    GC   TO  125 

0C87  GO   TO  120 

0C88  125                   INODE(K)    =  I 

0089  130  CONTINUE 

0090  DO    155   K    =    1 , NNODES 

0091  SUMY    =  0. 

0092  MY   =  2 

0093  IF    {  IMGTOP.EQ. 1  )    GO   TO  135 

0094  J    =  1 

0095  GO    TO  140 

0096  135  J   =  2 

0097  140  IDUM   =    (CCORDJ(K)    +    .00005)    *  1000. 

0098  IF  (IDUM.EQ.O)  GO  TO  150 
0C99  145             SUMY   =    SUMY    +  DELY(MY-l) 

0100  I  DUMA    =    (SUMY    +    .00005)    *  1000. 

0101  J    =    J    +  1 

0102  IF    ( J.GE. JY(MY) )    MY    =    MY    +  1 

0103  IF    ( I  DUMA    .GE.IDUM)    GO    TO  150 

0104  GC   TO  145 

0105  150  JNODE(K)    =  J 

0106  155  CONTINUE 

0107  NS    =  1 

0108  160    UK    =  NUMBRK(NS) 

0109  DO    185  K  =  1  (  UK 

0110  SUMX    =  0. 
0  111  M  X    =  2 

0112  IF    ( IMGLSD.EQ. 1 )    GO   TO  165 

0113  1=1 

0114  GO    TO  170 

0115  165  I    =  2 

0116  170  IDUM    =    ( xeRK(K i SS )    +    .00005)    *  1000. 

0117  IF    (IDUM.EQ.O)    GO    TO  180 

0118  175  SUMX    =    SUMX    +  DELX(MX-l) 

0119  IDUMA    =    (SUMX    +    .00005)    *  1000. 

0120  1=1+1 

0121  IF    {  I  .GE . IX (MX )  )    MX    =    MX    +  1 

0122  IF    ( IDUMA.GE. IDUM)    GO   TO  180 

0123  GO    TO  175 

0124  180  I8RMK.NS)    =  I 

0125  IF    ( I .EO.WCOL-l )     IBRK(K.NS)    =  MCOL 

0126  185  CONTINUE 

0127  DO  210  K  =   1  •  UK 
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oi2e 

0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0  144 
0145 
0146 
0147 


01  46 
0  149 


0  150 
0151 

0  1  52 
0153 
0154 

01  55 
0156 
0157 
0158 
0  159 
0160 
0  16  1 
0162 
0163 
0  164 
0165 
0  1  66 
0167 
0168 
0169 
0170 
0171 

0  172 
0173 
0174 
0175 

01  76 
0177 
0  178 
0  179 
0180 
0181 
0182 

oie3 

0184 
0185 
0  186 
0187 
0168 
0189 
0190 
019  1 
0192 
0193 
0194 
0195 


SUMY    =  0. 
MY    =  2 

IF    { I MGTOF.EQ. 1 )    GO    TO  190 
J    =  1 
GC    TO  195 
190  J    =  2 

195  IDUM    =    (YBRK(K.NS)    +    .00005)    *  1000. 

IF    (IDUM.EQ.O)    GO    TO  205 
200  SUMY    =    SUMY    +   DEL Y ( MY- 1  ) 

IDUMA    =    (SUMY    +    .00005)    *  1000. 

J    =    J    +  1 

IF    ( J.GE.JY(MY) )    MY    =   MY    +  1 

IF    ( I DUMA.GE. IDUM )    GC   TO  205 

GO    TO  200 
205  JBRK(K.NS)    =  J 

IF    ( J.EQ. ^RCW-1 )    JERK(K.NS)    =  MROW 
210  CONTINUE 
NS    =   NS    +  1 

IF    ( NS.LE.LUNITS)    GC    TO  160 

READ    ( 5. 21 5)    ( ST ART Y ( N  SUBY )  , STOPY ( NSU BY )  , BEG  X ( NSUBY ) «  END  X ( N  SUBY ) 

1  JBETA(NSUBY)  ,JETA<  NSUBY)  ,BCLJ(NSUBY  )  .BCRJ(NSUBY)  .NSUBY   =  1, 

2  JGEOM) 

215   FORMAT ( 4F10  .2.2I5.2F10 .2 ) 

READ    (5,22  0 )    (STARTXC  NSUBX )  , STOPX (NSU EX ) . BEG Y ( N  SUBX ) • ENDY  ( N  SUB  X ) 

1  I  BETA ( NSUBX  )  ■  IETA( NSUBX)  ,BCUI (NSUBX) • BCB I ( NSUBX ) .FLUX (NSUBX)  . 

2  NSUBX    =    1,1 GE CM  ) 

2  20  FORMAT(4F10.2,2I5,2F10.2.E10.2) 

DO    222  NSUBY   =    1,  JGEOM 

BCL(NSUBY)    =  BCLJ(NSU8Y) 
222  BCR ( NSUBY )    =  BCRJ(NSUEY) 

NSIG   =  1 

225    GO    TO    (230,240,245,255  ),  NSIG 
230    ICHK    =  IMGTOP 
MCT    =  JGECM 
DO   235   MY   =    1 , NC ARDY 
KD(MY)    =  JY(MY) 
235  DELK(MY)    =    DEL Y (MY  ) 

GO    TO  260 
240   fcCT  =  IGEOM 

GO   TO  260 
245    ICHK    =  IMGLSD 
MCT    =  IGECM 
DO    250    MX   =  l.NCARDX 
KD(  MX)    =    I  X (MX) 
250  DELK(MX)    =  DELX(MX) 

GO   TO  260 
255    MCT    =  JGECM 
260    DO    370    NC  T   =  l.MCT 

GO   TO    (265,270,275,280) , NSIG 
265  SDUMA    =    START Y ( NCT ) 


270 


275 


280 


285 


290 
295 


30  0 


SDUMA 
S  DUMB 
GO  TO 
SDUMA 
SDUMB 
GO  TO 
SDUMA 
SDUMB 
GO  TO 
SDUMA  = 
SDUMB  = 
KSIG  = 
SUMY  = 
I    =  2 

IF    (  ICHK . EQ  .  1  ) 
J    =  1 

GO   TO  295 
J   =  2 

IDUM    =    (SDUMA    +    .00005)  * 
IF    (IDUM.EQ.O)    GO    TO  305 
SUM  Y    =    SU*Y    +  DELK(I-l) 
I  DUMA   =    (SUMY    ♦    .00005)  * 
J   =    J    +  1 


=  STOPY(NCT) 

2es 

=  8EG  Y( NC  T ) 
=  ENDY(NCT) 
285 

=    ST  ART  X (NCT) 
=  STOPX(NCT) 
285 

=    BEG  X ( NCT ) 
=  ENDX(NCT) 
0 

0  . 


GO    TO  290 


1000, 


1000. 
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0196 

IF    (J.GE.KD(I))  1=1+1 

0197 

IF    (KSIG.NE.O)    GO    TO  310 

0198 

IF    (  I  DUMA .LT .  IOUM )    GC   TO  300 

0  199 

305 

KSTART(NCT)    =  J 

020  0 

IDUM    =    (SDUMB    ♦    .00005)    *  1000. 

020  1 

KSIG    =  1 

0202 

GC    TO  300 

0203 

3  10 

IF    (IDUMA-IDUM)  300.315.320 

0204 

3  15 

KEND(NCT)    =  J 

0205 

GO   TO  325 

0206 

320 

KEND(NCT)    =    J    -  1 

0207 

325 

GO    TO    ( 330.340 .350.360) .NSIG 

020  8 

330 

DO    335   N  SUB  Y   =  l.JGECM 

0209 

JSTAF.T  (NSUEY  )    =  KSTART(NSUBY) 

02  10 

335 

JSTOP(NSUBY)    =  KEND(NSUeY) 

021  1 

GO    TO  370 

0212 

340 

DO   345    NSUBX   =  l.IGEOM 

0  213 

JBEG(NSUBX)    =    KSTART( NSUBX ) 

02  1  4 

345 

JEND(NSUBX)    =  KEND(NSUBX) 

021  5 

GO    TO  370 

0  216 

350 

DO    355    NSUBX   =  l.ICECM 

0217 

ISTART (NSUBX )    =    KSTART( NSUBX ) 

0218 

355 

ISTOP(NSUBX)    =  KEND(NSUEX) 

0219 

GO   TO  370 

0220 

360 

DC    365   NSUBY   =  l.JCEOM 

022  1 

IBEG(NSUBY)    =    K ST ART ( NSU BY ) 

022  2 

365 

I  END ( NSUBY )    =    KEND ( NSUBY ) 

0223 

370 

CCNTI NUE 

0224 

NSIG   =   NSIG   +  1 

0225 

IF 

(NSIG.LT.5)    GO   TO  225 

0226 

IF 

(KAREAD.NE.l )    GO    TO  395 

0227 

IF 

(IFILE.NE.O)    GO    TO  385 

0228 

READ    (5.375)    (  (  PHED  <  I  .  J  )  ,  I    =  l.MCOD.J 

0229 

37  5 

FORMAT  (6013.6) 

0230 

380 

MSIG    =  0 

023  1 

1F{ MCHNGE .EO.O )    GO    TO  550 

0232 

GO 

TO  420 

C*****   POSSIBLE   MODIFICATION    TYPE  M5. 

r~ 

0233 

\_ 

385 

DO 

390    ICT   =  l.IFILE 

0234 

390 

READ { 9 )  PHED 

0235 

GO 

TO  380 

v~ 

C*** 

INITIALIZE   PHED    ARRAY • ********** 

0236 

\_ 

395 

IFf  INISIG.EQ.OGO  TO  410 

0237 

ZHED    =   — ELE V 

0  23e 

MY 

=  1 

0239 

J  = 

1 

0240 

400 

DO 

405    1=1.  MCOL 

024  1 

405 

PHED(I.J)    =  ZHED 

0242 

J  = 

J    +  1 

0243 

IF 

(J.GT.MROW)    GO   TO  420 

0244 

2HED    =    ZHED   +   DEL Y ( MY ) 

0245 

IF 

(J    .EQ. JY( MY+1 ) )    MY    =    MY    +  1 

0246 

GO 

TO  400 

0247 

4  10 

DO 

415    J    =    1 ,MRCW 

0248 

DO   415   I    =    1  .MCOL 

0249 

4  15 

PHED(I.J)    =  PHEDS 

0250 

420 

MSIG    =  0 

0251 

GO 

TO  830 

1  .MROW) 


C 

C***    SET   H-SPECIFIED    BOUNDARY    CONDITIONS    AT    ENOS    OF  ROWS. 

C  PRIOR   TO    1ST    ITERATION    ONLY. ********** 

C 

0252  425    DO    445    NSUBY    =  l.JGECM 

0253  IJK  =   J START (NSUBY) 

0254  KSTOP    =  JSTCP(NSUBY) 

0255  I    =    I  BEG ( NSUBY ) 

0256  LSTOP   =    I END ( N  SU  BY ) 

0257  IF    ( JBETA(NSU8Y)-1 )  430.432.426 
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0  2  58 

4  26 

MY 

=  2 

025  5 

AO? 

T  P 

/  t  ik    ip     iv  f  mv  n    r  n   rn  A9& 

M  V 

m  T 

—      Pn  T      T  1 

V  £U  i 

/~  t~\ 

uU 

Tfi  A97 

02  6  2 

428 

DO 

AOQ       1     —      T   IK  .  k  CTHD 
**  t  ^     J     —     1  Jn«  i  ^  j  i  Ur 

0  26  3 

rTIC.  U  A  A       1  (  J  /       —      DLL  \  INjUD  1  9 

0264 

IP     (   J-FP.                       1     MV     —     MY     +  1 

0  26  5 

4  29 

Qfl    fKJCUPYk     —     Rfi    f  KQIinv  1     +     nPi  V/ 
D^.L  I  liOUC  I    /       —      DvL  I  i\3UDT    t       ▼      ULL  1  I 

0  2  6  6 

G  0 

026  7 

A  Trt 
*♦  O  VJ 

DO 

026  8 

ATI 

PMFD  f  T*  1-   1)     —     uri    If  MQlinv) 

026  9 

4  3  2 

j  p 

4    IFTA(  M^URY)-1  1  4^7.A4S.AH 

027  0 

4  33 

MY 

=  2 

U  £  r  1 

4  34 

T  C 
i  « 

(  f  ii/   ip     IV  /  Mv  n    c  n   tn   a  ic 

U  c.  f  c. 

M  Y 

—      f^y      ^  J 

t\  O  7 

\3  U 

Tfl  A 
1  U     **  JH 

027  4 

4  35 

DO 

027  5 

02  7  6 

TP     f   (.FT.   iv /  MY  H     MV    =    MV     +  1 

0  27  7 

4  36 

RfRf  N^IIRY  1     —     PTP  f  KI^IIRY  )     +    DPI  Y(< 

02  7  8 

GO 

TO  445 

0275 

437 

00 

440    J    =  IJK.KST0P 

0280 

440 

PHED { L STOP  + 1  * J)    =  BCRJ(NSUBY) 

0281 

445 

CONTINUE 

c 

C***  SET    H-SPECIFIED    BOUNDARY   CONDITIONS    AT   ENDS    OF  COLUMNS. 

C  PRIOR   TO    1ST    ITERATION   CNLY. ********** 

C***  SET   FLUX   AND    I fPERME  A  ELE    BOUNDARY    CONDITIONS    AT    TOPS    OF  COLUMNS. 


AFTER    EACH    I  TERAT I  ON. ********** 


0282 

450 

DO 

545    NSUBX    =  l.IGECM 

0283 

UK   =    ISTART(NSUBX  ) 

0284 

KSTOP   =  ISTCP(NSUBX) 

0285 

J   =    JBEG( NSUBX) 

0286 

LSTOP   =  JENO(NSUEX) 

0287 

IF    (IBETAIN SUBX )  • E 0. 0 )    GO   TO  490 

0288 

MY   =  2 

0289 

460 

IF    (J-JY(VY))  470.475,465 

0290 

465 

MY  as   MY   +  1 

029  1 

GO   TO  460 

0292 

470 

DEL   =   2.    *   DELY  <  MY— 1 )    *  COSAL 

0293 

GO   TO  480 

0294 

475 

DEL    =    ( DELY ( MY  —  1  )    +    DEL  Y ( MY ) )    *  COSAL 

0295 

480 

DO   485    I    =    UK, KSTOP 

0296 

K AVE    =    (HCON(I.J-l)    ♦    HCON(I.J)  ♦ 

0297 

485 

PHED(I,J-1>    =    PhED(I.J+l>    -    DEL  * 

0298 

GO   TO  500 

C299 

490 

IF   (MSIG.NE.0)    GO    TO  545 

030  0 

DO    495    I    =    UK, KSTOP 

0301 

495 

PHED(I.J-l)    =  BCUKNSUBX) 

0302 

500 

IF    (MSIG.NE.0)    GC    TO  545 

0303 

IF    ( IETA< NSUBX) .EQ.0)    GO    TO  535 

0304 

J    =    L  STOP 

0305 

MY    =  2 

0306 

505 

IF    (J-JY(MY))  520.515,510 

0307 

510 

MY  —  MY  ♦  1 

0308 

GO    TO  505 

0309 

515 

DEL   =    ( DELY (MY— 1 )    ♦    DEL Y( MY ) )    *  COSAL 

0310 

GO   TO  525 

031  1 

520 

DEL    =    2.    *   DELY(MY-l)    *  COSAL 

031  2 

525 

DO   530    I    =    UK, KSTOP 

0313 

530 

PHED ( I  ,  J  +  l  )    =    FHEDU.J-1)    ♦  DEL 

0314 

GO   TO  545 

0315 

535 

DO   540    I    =    UK, KSTOP 

0316 

540 

PHED ( I  .LST0P+ 1 )    =   8CB I ( NSUBX ) 

0317 

545 

CONTINUE 

0318 

IF 

(MSIG.EQ.1)    GO   TO  1085 

HC0N(  I  , J  +  1  )  )/3. 

(1.    +    FLUX (NSUBX )/KAVE) 


031  9 
0320 


C***   PRINT    HEADING    AND    INITIALIZATION  DATA.********** 

C 

550    MSIG    =  1 

WRITE    (6,555)    C  C  ME  NT 
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c 

C***«*  POSSIBLE  MODIFICATION  TYPE  M3. 
C 


0321  555   FORMAT! 1H1 ,20A4/(20A4) ) 

0322  WRITE  (6,560) 

0323  560   FORMAT    (  1  HO  .  6  FES  T  I  ME    5X.6HKAREAD    5X.6FKARPCH    5X.4HITER  SX, 

1         5HIFILE    5X.5HIPSIG    5X.5HILSIG   5X »  6HK  TABLE   5X » 6HMCHNGE  ) 

0324  WRITE    (6.565)    E ST  I  ME . K AR E AD . K ARPCH , I TER .  I F I LE . I P S I G , 
1  ILSIG.KTABLE.MCHNGE 

0325  565   FORMAT    (1H   F 6 . 0 . I  5 . 2 1  1  I « I  8 . 3  I  1 0 « I  1 2 ) 

0326  WRITE  (6,570) 

0327  570   FORMAT    (1H0    3X.4HLGTH    5X.5HDEPTH   5  X , 5  HSLOPE    5X.6HIMGT0P  5X.6HIMGBO 

IT    5X.6HIMGLSD    5X.6HIMGRSD    5X.6HINISIG   5  X  » 5HPHEDS   5  X , 4KELE V  ) 

0328  WRITE    (6,575)    LGTH , DEP TH , SLO PE , I  V GTOP , I MGBOT . I MGL SD , I MGR SD , 
1  INISIG.PHEDS.ELEVS 

0329  575    FORMAT    (1H    F 8  .  2 . F 1 0 . 2 . F 8 . 2 ,  I  1 0  .  4  I  I  1  ,F  1 3 . 2 ,F 9 . 2 ) 

0330  WRITE  (6,580) 

0331  580   FORMAT    (1H0   5HITMAX    5X.6HINTPRT    5X.5HCMEGA    5X.6HN0MEGA  5X.6HNNODES 

1    5X.5HIDBLE    5X ,  6HNC  ARD  Y    5X  » 6HNCAPDX    5X.5HJGE0M    5X.5H1GE0M  ) 
0232  WRITE    (6.5e5)     I TM A X , I N TPRT .OMEG A . NO UE G A , NNODE S • I D BL E . N VCR D , 

1      N  XCRD , J GEO  M , I GEOM 

0333  585    FORMAT    (1H    14,1  10, Fll,2, 2110, 3111, 2110) 

0334  WRITE  (6,590) 

0335  590    FORMAT    (  1  HO , 37HGECMETRY    AND    BOUN  C  AR Y   CONDITION   DATA  ) 

0336  WRITE  (6,595) 

0337  595    FORMAT    (1H0    4HMC0L    5X.4HMR0W  ) 
033e  WRITE    (6,600)  MCOL.MROW 

0339  600    FORMAT    (1H  14,19) 

0340  WRITE  (6,605) 

0341  605   FORMAT    (1H0,20HF0R    RCW    SUBSECTIONS  ) 

0342  WRITE  (6,610) 

0243  610   FORMAT    (1H   5HNSUBY   5X.6HSTARTY    5X.5HST0PY    5X.4HBEGX    5X,4HENDX  5X, 

15HJBETA    5X.4HJETA   5  X , 4  HBCL  J    6X.4HBCRJ  ) 

0344  WRITE    (6,615)    ( N , ST AR T Y ( N ) , STOP Y ( N ) . BEG X ( N ) . E ND X ( N ) . JBE T A { N ) . 
1      JETA(N)  ,BCLJ(  M  ,BCRJ  (N)  ,N   =  l.JC-ECM) 

0345  615   FORMAT    (1H    I  3 ,F 1 3 . 2 , F 1 0 . 2 . 2F9 . 2 ,  1 8 ,  I  1 0 . 2F 1 0  . 2  ) 

0346  WRITE  (6,620) 

0347  620   FORMAT    (1H   5HNSUBY    3  X  ,  6H  J  ST  ART    3X.5HJSTQP   3X.4HIBEG    3X.4HIEND  ) 

0348  WRITE    (6,625) (NSUBY,    J  ST  ART ( N  SUSY ) , JSTO  P( NSUBY)  , I  BEG (NSUBY)  , 
1       1END( NSUBY) .NSUBY   =  l.JGEOM) 

0345  625    FORMAT    (1H    13. 15. 18.218) 

0350  WRITE  (6.630) 

0351  630    FORMAT    (1H0.23HF0R    CCLUMN   SUBSECTIONS  ) 

0352  WRITE  (6.635) 

0353  635   FORMAT    (1H   5HNSUBX    5X.6HSTARTX    5X.5HST0PX    5X.4HBEGY   5X.4HENDY  5X. 

1 5H I  BETA   5X.4HIETA    5X.4HBCUI    6X.4HBCBI    5X.4HFLUX  ) 

0354  WRITE    (6.640)    ( N . ST  ART X ( N )  , STOP X ( N ) . BEG Y ( N ) , E ND Y ( N ) . I  BET A ( N )  .  I 
1ETA(N) .BCUI (N).BCBI {  N  )  .FLUX ( N  )  »  N= 1 .  I GEOM  ) 

0355  640   FORMAT    (1H    I  3  .F 1 3 . 2 . F 1 0 . 2 . 2F 9 . 2 ,  1 8  ,  I  1 0 , 2F 1 0 . 2 . E 1 0 . 2 ) 

0356  WPITE  (6,645) 

0357  645   FORMAT    (1H    5HNSUBX   3  X  ,  6H  I  STAR  T    3X,5HIST0P    3X.4HJBEG    3X.4HJEND  ) 

0358  WRITE    (6,625)    ( N  SUB  X. I START(NSUBX) , ISTOP( NSUBX) , J BEG ( NSUBX ) , 
1      JE  ND (NSUBX)  , NSUBX   =  l.IGEOM) 

0355  WRITE  (6,650) 

0360  650    FORMAT    (  1  HO    55HV AR I  ABLE    MESH    INCREMENT    DATA   FOLLOW    IN    TRIPLETS  AS 

1XYZ  ) 

0361  WPITE  (6,655) 

0362  655    FORMAT    (1H   5X , 5 7H WHERE    X   -    MEASURED   DISTANCE   FROM    AXIS    (DXLGTH  OR 

1DYLGTH)  ) 

0363  WRITE  (6,660) 

0364  660   FORMAT    (1H    11X.36HY   =    ROW   OR   COLUMN    NUMBER    ( JY    OR    IX)  ) 

0365  WRITE  (6,665) 

0266  665   FORMAT    (1H    11X,36HZ    =    INCREMENT   LENGTH    (CELY    OR    DELX  )  ) 

0367  WRITE  (6,670) 

036e  670    FORMAT    (1H      9FVERTICAL  ) 

0369  WRITE    (6,675)    ( O YLG TH ( N ) , J Y ( N ) , DELY ( N > . N   =  l.NCARDY) 

0370  675   FORMAT    (1H   4 ( F 8  . 2 . I  5 , F 8 . 3 . 8 X )  ) 

0371  WRITE  (6,680) 

0372  680   FORMAT    (1H    1 1 HH CR  I ZON T AL  ) 

0373  WRITE    (6.675)    ( DXLG TH ( N )  ,  I  X ( N  )  .DELX (  N  )  , N   =  l.NCARDX) 

0374  DO    755   NS    =  l.LUNITS 

0375  IF    ( NUMLIN(NS) .E0.999)    GO    TO  750 

0376  WRITE    (6.685)  NS 
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0377  685  FORMAT< 1 H 0 . 3 0 X , 43HH YDR AUL I C  CONDUCTIVITY  TABLE  FOR  SOIL  UNIT  13) 
0376  WRITE  (6,690) 

0379  690   FORMAT    (1H      79HFCTTCV    CF    UNIT      LIES    ALONG   STRAIGHT   LINES    CONNECT  IN 

1&   THE    FOLLOWING   COORDINATES  ) 
0390  WRITE  (6.695) 

0331  635  FORMAT!  1H    28H A S    (X.Y)    MEASURED   FRCM    AXES  ) 

0332  IDUM   =  NUMBRK(NS) 

0383  WRITE    (6.700)    (XBRK(N.NS) .YBRK(N.NS) •    N   =  l.IDUM) 

0384  700  FORMAT    (1H  5(2F9.2.5X)) 

0385  WRITE  (6,705) 

0386  705  FORMAT    <1H   3 1  HAS    COLUMN    AND   PCW    NUMBER    (I.J)  ) 

0387  WRITE    (6.710)    (  IBRK(N,NS)  ,JBRK(N,  INS )  ,    N   =  l.IDUM) 

0388  710  FORMAT    (1H   7(215. 5X)) 

0389  WRITE(6,715) 

0390  715  FORMAT    (1H0.12X.1HP      1 2X . 1 HK3 (  1 4X , 1  HP  1 2X .  1 HK )  ) 

0391  NUM   =  NUMLIN(NS)/4 

0392  NUMA    =  NUC*4 

0393  IF    ( NUMA.EQ.NUMLIN(NS) )    GO   TO    72  0 

0394  LNUM    =  0 

0395  NUM   =    NUM   +  1 

0396  NUMA    =  NUM*3 

0397  NUMA    =    NUVLIN(NS)    -  NUMA 

0398  GO   TO  725 

0399  720  LNUM   =  1 

0400  NUMA    =  NUM 
040  1  725             I  T   =  1 

0402  730  WRITE    (6.735)    PTAE(IT.NS)  . KT AB(  IT.NS).PTAB(IT  +  NUM.NS)  iKTAB 

1  ( I T+NUM ,NS ) , PTAB(IT+2*NUM,NS).KTAB( IT+2*NUM ,NS ) . PTAB ( IT+ 

2  3*NUM  ,N  £)  ,K  TAB(  I  T«-3*NUM  ,NS  ) 

0403  735  FORMAT    ( 1H    , 4 ( 5X . E 1 0 . 3 . 3 X . E 1 0 . 3 )  ) 

0404  I T   =    IT    +  1 

0405  IF    (IT. LE. NUMA)    GO    TO  730 

0406  IF    (LNUM.EQ.l)    GO    TO  755 

0407  740  WRITE    (6,745)    PTAB(IT.NS) «  KT  A  E ( IT.NS).PTA8( IT+NUM.NS) .KTAB 

1  (  I T+NUM ,NS)  , PTAB ( IT+2*NUM ,NS ) ,KTAB( IT+2*NUM ,NS) 

0406  745  FORMAT    (1H    ,  3  (  5  X  .  E  1 0  .  3  ,  3X  ,  E  1  0  .3  )  > 

0409  IT   =    IT   +  1 

0410  IF    (IT.LE.NLM)    GO    TO  740 

0411  GO   TO  755 

0412  750  WRITE    (6,760)  NS 

0413  755  CONTINUE 

0414  760   FORMAT    (1H0    32HI- YDRAUL IC   CONDUCTIVITY   FOR   UNIT         15.    53H    IS  OBTAIN 

1  ED   FROM   AN   EQUATION.       SEE    PROGRAM   LISTING.  ) 

0415  IF    (KHPRNT.NE.l )    GO    TO  775 

0416  WRITE  (6,765) 

0417  765   FORMAT    (1H0    4 8X , 2 3H I N I T I AL   K - D I  ST R I BUT  I  ON  ) 

0418  OO   770   J    =  l.MRCW 

0419  770  W R I  TE (6,1190)    J , ( H CC N (  I , J )  , I  =  1 , M COL ) 

0420  775    IF    (IPSIG.NE.l)    GO   TO  785 

0421  WRITE  (6,780) 

0422  780   FORMAT    (1H0    , 4 0 X , 3 9H S T A R T ING    DISTRIBUTICN    OF    PRESSURE   HEAD  ) 

0423  LSIG    =  2 

0424  GC    TO  1180 

0425  785    IF    (NNODES.EQ.O)    GO    TO  825 

0426  WRITE  (6.790) 

0427  790   F  ORM AT (  1 H  0    . 7 OH  I TER A T I C N    NO.    AND   PRESSURE    HEAD    AT    SELECTED   NODES  A 

IS    IDENTIFIED    BELOW  ) 
042e  WRITE  (6.795) 

0429  795   FORMAT    (1H   40HCOORD I  NATES    AS   MEASURED   FROM    AXES    (X.Y)  ) 

0430  WRITE    (  6,800)    (COORDI  (K )  , CO OR  D J( K  )  ,K    =  l,NNODES) 

0431  800   FORMAT ( 1 H    5 ( F8 . 2 , 1 H , , F8 . 2 . 4 X ) ) 

0432  WRITE  (6,805) 

0433  805    FORMAT    (1H      43HC00RD I N ATES    AS   ROW   AND  COLUMN    NUMBER    (I,  J)  ) 

0434  WRITE    (6,810)    (  I NODE ( K )  ,  JNODE ( K )  . K= 1 . NNODES > 

0435  810   FORMAT    (1H      . 4H I TE R ,  1 X , I  4  ,  1 H , . I  4 , 8 ( 4 X , I  4 . 1 H ,  ,  14         )  ) 

0436  WRITE  (6,815) 

0437  815   FORMAT    (1H  ) 

0438  WRITE    (6,820)    I TE R ,  ( P HED ( I  NO DE ( K )  , J NO DE ( K )  ) , K= 1  , NNODE S ) 

0439  820    FORMAT    (1H  ,15.9013.5) 

C 

C***    BEGIN    AN    I TERATI CN. ********** 

C 

0440  825    ITER   =    ITER    «•  1 
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0441 
0442 
0443 
0444 
0445 
0446 
0447 

044  e 
0449 
0450 
0451 

045  2 
0453 
0454 
0455 
0456 
0457 
0458 
045<5 
0460 

046  1 
0462 
0463 
0464 
0465 
0466 


0467 
0468 
0469 
0470 
047  1 
0472 

047  3 
0474 
0475 
0476 
0477 
0476 
0479 
0430 

048  1 
0482 

0483 
0484 
04e5 
0486 
0487 
04B6 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 

049  7 
0498 
0499 
0500 

050  1 
0502 
0503 
0504 
0505 


C 

C*¥*    TABLE   LOOKUP  FOR   HYDRAULIC  CONDUCTIVITY.********** 

C 

830 


835 


840 
845 

eso 

855 


860 


665 


870 
875 


880 

C 

c  ** 

c 
c 


YD  1ST    =  0. 
IF    ( IMGTOP.EQ.l ) 
MY   =  2 
J    =  1 
1    =  1 
MX    -  2 
XDIST    =  0. 
IF    (  IMGLSD.EO .1  ) 
NS   =  1 
N    =  2 

IF    ( I .LE. IBRK(N.NS) ) 
N  =  N  +  1 

IF    (N .LE. NUMBRK ( NS) ) 
NS    =   NS    *  1 

IF    (NS.LE.LUNITS)    GO    TO  840 
GO   TO  870 

GR  AD   =    (YBRK(N.NS)  - 
ELIJ    =    YBRMN-l  ,NS) 
IF    ( YDIST.LE.EL IJ )    GO    TO  880 
NS  =  NS  ♦  1 

IF    (NS.LE.LUNITS)    GO  TO 
WRITE  (6.875) 
FORMAT! 1H0    27H    SOIL  UNIT 
LSIG  =  1 
GO   TO  1152 

IF    ( NUMLI N( NS ) . NE.999 )    GC   TO  885 


YDI ST    =   —DEL  Y (  1  ) 


XDI ST    =   -    DELX ( 1 ) 


GO   TO  860 


GO    TO  845 


YBRK(N-l.NS))  /  (XBRK(N.NS)  -  XBRK ( N- 1 . N S ) ) 
+    (XDIST    -    XBRK( N-l .NS) )    *  GRAD 


640 


INPUT    DATA  ERROR 


*******INSERT  PROGRAMMING 
REQUI  RED. 


FOR    CALCULATING  K    FROM    EQUATIONS.  IF 


885 

890 

895 

900 
905 

9  10 

915 

920 

925 
930 
935 
940 
945 


950 


955 


IF    (MSIG.EQ.O)    GO   TO  435 
GO    TO  980 

IF    ( °  HE  D (I.J).GE.O.)    GO    TO  895 
IT    =  NUMLIN(NS)/2 

IF    (PHED(I.J)    -   PTAB(IT.NS))  890.930.900 

L    =  5 

GO    TO  905 

HCON(I.J)    =  KTAB(l.NS) 
GO    TO  935 
L   =  1 

IT    =  L*NUMLIN(NS)/8 

IF    (PHED(I.J)    -    PTAB(IT.NS))  910.930.925 
L    =   L   +  I 

IF  (L.LE.8)  GC  TO  905 
WRITE    (6.920) ITER. I .J 

FORMAT    (1H0.39HK    TABLE    LIMITS   EXCEEDED.    ITERATION  NO. 
1         I5.5H    J   =  15) 
LSIG    =  1 
GO   TO  1180 
IT  =    I T   -  1 

IF    (PHED(  I  ,  J) .GT.PTAE  (IT.NS)  ) GO   TO  925 


15. 5H    I  = 


GC   TO  835 


FACTOR  =  (PHED(I.J)  -  PTAB( IT.NS)) 
HCON(I.J)  =  K  TAB (  IT.NS)  ♦  FACTOR  * 
1    =  1*1 

IF    (I-MCOL)  950,940.945 
IF    (  IMGRSD.EQ.l  )    GO   TO  955 
GO    TO  950 
J    =    J    +  1 

IF    (J.GT.MROW)    GO    TO  975 
IF    ( J.EO.MROW.AND.IMGBCT.EO.l I 
YD  I ST   =    YD  1ST    ♦  DELY(MY-l) 
IF    ( J.GE.JY(MV) )    MY    =    MY    +  1 

GO    TO  e35 

XDIST   =    XDIST    +  DELX(MX-l) 
IF    (  I  . GE • I  X ( MX )  )    MX    =    MX    ♦  1 
IF    ( I .GT. IBRK(N.NS) )    GC    TO  850 
ELIJ   =   YBRK(N-l.NS)    +    (XDIST  - 
IF    ( YDIST.GT.ELIJ)    GC    TO  865 
IF    ( PHEO (  I .J)  .GE.O.  )    GO    TO  895 
IF    (PHED(I.J)    -   PTAB(IT.NS) 1960.930,970 


/  (PTAB( IT+1 ,NS )  -  PTAB( IT.NS) ) 
(KTAB( IT+1 ,NS)    -  KTAB(IT.NS)) 


XBRMN-l  ,NS)  )    *  GRAD 
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0506  <960    IT  =   IT  +  1 

0507  IF  {  IT.GT.NUMLIN(NS)  )  GO    TO  915 

0508  IF  (PhED(I.J)    -   PTAE(IT.NS))  960.930,965 

0509  965    IT  =    IT    -  1 

0510  GO  TO  930 
051  1  970    I T  =    IT   -  1 

0512  IF  <PHED(  I  »  J)  .GT.PTABI IT  »NS )  )    GO    TO  970 

0513  GO  TO  930 

0514  975    IF  (MSIG.EQ.O)    GO   TO  425 


051  5 


05  16 
0517 

051  e 

05  1  9 


0520 
052  1 
0522 
0523 
0524 
0525 
0526 
0527 
0528 


C***  BEGIN  EQUIVALENT  OF  ^DO-LOOP"  SOLVING  FINITE  DIFFERENCE 
C  EQUATION   FOR    EACH   NODE   OF  MESH.********** 

C 

980    DO    1080    NSUBY   =  l.JGEOM 

C 

C***    BEGIN   A   ROW  SUBSECTION.********** 

C 

J    =    JSTARTI NSUBY) 
KSTOP   =  JSTOP(NSUBY) 
UK   =    I  BEG  (  NSUBY  ) 
LSTOP    =    I  END ( NSUBY ) 

C 

C***    LOCATE    DELTA   X    AND   DELTA    Y    AT    TOP    AND   LEFT    SIDE    OF  THE 
C  ROW  SUBSECTION.********** 

C 

MY   —  2 

985  IF    ( J.LE. JY( MY) )    GO    TO  990 

MY    =    MY    ♦  1 

GO    TO  9e5 
990  MX   =  2 

995  IF    (  IJK.LE.  IX(MX  )  )    GO    TO  1000 

MX    =    MX   +  1 
GO   TO  995 
1000  MXMYST    =  MX 


0E29 
053  0 
0531 
0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 


0540 
054  1 
0542 
0543 
0  54  4 
0545 
0546 
0547 
054  e 
0  54  9 
0550 
0551 


C***    START    A   ROW    WITHIN   THE    SUBSECTION. ********** 

C 

1005  I    =  UK 

KdETA   =  JEETA(NSUeY) 
KETA    =  0 
MX   =  MXMYST 
DELYM    =   DEL Y ( MY— 1 ) 
IF    ( J.LT. JY(MY) )    GO   TO  1010 
O  EL  YP    =   DEL  Y { MY ) 
MY   =    MY  ♦  1 
GO   TO  1015 
DELYP    =   DELY ( MY— 1 ) 
IF    (J.  NE. KSTOP)    GO    TO  1045 


1010 
1015 

C 

c*** 

c 
c 

1020 


1025 
1  030 


1035 
1040 


SET    IMPERMEABLE    BOUNDARY    CCNDITICN.    IF    REQUIRED,    AT  BOTTOM 
OF    COLUMNS    PRIOR    TO    SWEEPING   LAST    ROW   OF  SUBSECTION.********** 


DC    1040    NSUEX   =  l.IGECM 

IF    ( J  .NE . J  END (NSUBX )  )    GO   TO  1040 
IF    < IETA(NSUeX) .EQ.O )    GO   TO  1040 
IF    ( J.EQ.JYI MY-1 > )    GO   TO  1025 
DEL   =    2.    *    DELY ( MY— 1 )    *  COSAL 
GO    TC  1030 

DEL   =    <DELY(MY  —  2)    ♦    DELY  <  MY— 1 )  )    *  COSAL 

I  DUMA    =  ISTART(NSUBX) 

IDUM   =  ISTOP(NSUBX) 

00    1035   K    =  IDUMA.IDUM 

PHED(K.J+1)    =   PHED(K.J-l)    ♦  DEL 
CONTINUE 


C***  CALCULATIONS  FOR  INDIVIDUAL  N'ODE  WITHIN  A 
C 

0552  1045  DEL  XM    =  DELX(MX-l) 

0553  IF    < I .LT. IX(MX) )      GO   TO  1050 

0554  DEL  XP   =  DELX(MX) 

0555  MX    =    MX    +  1 

0556  GO    TO  1055 


ROW    STARTS   HE RE  *********  * 
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0557 


0558 
0559 
0560 

056  1 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0565 

057  0 
057  1 
0572 
0573 
0574 
0575 
0576 
0577 
0578 
0579 
0580 


0581 


0582 
0583 
0584 

oses 

0586 
0587 

05ee 

0589 


0590 
0591 
0592 
0593 
0594 


0595 
0596 
0597 
0598 
0599 
0600 
0601 
0602 

0603 
0604 
0605 
0606 
0607 
0608 


1050  DELXP    =  DELX(MX-l) 

C 

C***   PREPARE   PARAMETERS   FOR    FINITE    DIFFERENCE  EQUATION.********** 

C 

1055 


1060 


i  ce; 


YA   =    .5   *    (hCOM  I  t  J) 
YC   =    .5    *    (HCON( I.J) 
XA   =    .5    *  (HCONd.J) 
XC    =    .5    *    (HCCN( I .J) 
HEDA    =   PHEO ( I - 1  • J  ) 
HEDB    =  PHEDU+l.J) 
IF    <  KBETA iEQ.0)    GO  TO 
KBETA    =  0 
XA    =  XC 

HEDA    =   HEDB    +  (DELXM 
GO  TO  1065 

IF    (KETA.EQ.O)    GC  TO 

XC    =  XA 

HEDB  =  HEDA  -  (DELXM 
AY  =  YA  /  DELYM 
YC  /  DEL YP 
XA  /  DELXM 
XC    /  DELXP 

(DELYP    *    YA   +    DELYM  * 
(DELXP    *   XA    ♦    DELXM  * 
2.    /    (DELYM    ♦  DELYP) 
2.    /    (DELXM    «■  DELXP) 


♦  HCCN(I.J-l)) 

+  HCON( I  • J+ 1  )  ) 

+  HCON( I- 1 . J ) ) 

+  HCCM  1*1  .  J  )  I 


1  060 


+    DELXP)    *  SINAL 


1065 


♦   DELXP)    *  SINAL 


CY 

AX 

CX 

YB 

XB 

E  Y 

EX 

DELTA  - 
COSAL 
SIN  AL 


YC  ) 
XC) 


(DELYM 
(DELXM 


DELYP) 
DELXP) 


( ( HCON ( I . J— 1 )  -  HCON(I,J+l)>  /  (DELYM  ♦ 
+    (  (HCON(  1-1  .  Jl    -    HCON(I-H.J))    /  (DELXM 


DELYP))  * 
+  DELXP)) 


C 

C*** 

c 


THE    FINITE    DIFFERENCE    ECUATION. ********** 


+   OMEGA  * 


+    DELTA)  / 


1  070 


1075 


1080 


PHED(I.J)    =    (1.-    OMEGA)    *  PHED(I.J) 
(EX    *    (AX    *   HEDA    ♦    CX    *    HEDB)  ♦ 
EY   *    (AY   *   PHED(I.J-l)    +   CY   *  PKEDO.J+l)) 
(EX   *   XE    ♦   EY    *  YB) 
1    =  1*1 

IF    (I-LSTOP)  1045,1070.1075 
KETA   =  JETA(NSUBY) 
GO   TO  1045 
J  =   J    ♦  1 

IF    (J.LE.KSTOP)    GO    TO  1005 
CON  T I NUE 
TO  450 

C 

C***    THIS   COMPLETES    AN    I TERATICN********** 

C***    ChECK    WHETHER    TO    PRINT.    ON  CPU   TIME.    AND    ON    NUMBER  OF 
C  ITERATIONS********** 

C 

IPRINT  =  ITER/INTPRT 
IPRINT    =    INTPRT    *  IPRINT 
IF    ( ITER. NE .IPRINT)    GC    TO  825 
IF    ( NNODES.EQ.O  )    GO    TO  1090 

WRITE    (6.820)    I TER, (PHEO ( INODE(K ) , JNOCE( K > ) ,K= 1 , NNODES) 


GO 


1085 


C 

C***** 

c 

1090 


POSSIBLE   MODIFICATION    TYPE   M2   —   NEXT    3  STATEMENTS. 


CALL    TASKTM( CHKTM) 
TTIME    =    TTIME    +  CHKTM 
TIME    =    TTIME    /  1000. 
IF    (TIME. GE .ESTIME )    GO   TO  1100 
IF    ( ITER.LT.ITMAX)    GO    TO  825 
IF    ( ILSIG.NE. 1 )    GO    TO  1110 
WRITE    (6,1095)  ITER 
1095   FORMAT    ( 1  HO , 33X , 33 HFRE S SURE    HEAD    DISTRIBUTION  AFTER 
112H    ITERATIONS  ) 
LSIG   =  3 
GC    TO  1180 
1100    LSIG   =  4 

WRITE  (6,1105) 
1105    FORMAT    (1H0    16HESTIME    EXCEEDED  ) 
1110    IF    ( KARPCH.NE. 1 )    GO   TO  1145 


I  5, 


37 


0609 


061  0 
061  1 
0612 
061  3 
061  4 
0615 


0627 
0628 
0629 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0638 
0639 
064  0 
0«4  1 
0642 
0643 
0644 
0645 
0646 
0647 
0648 


0649 
0650 
065  1 
0652 
0653 
0654 


0655 
0656 
0657 
0656 
0659 
0660 
066  1 
0662 


C 

c*** 

c 


PUNCH    ON   CARDS    OR    WRITE    ON    TAPE  RESTART********** 


IF    CIFILE.NE.O)    GO   TO  1130 


C 

c***** 

c 


POSSIBLE   MODIFICATION    TYPE  M4, 


WRITE    (7,375)    C < PHEDf X • Jl ,1    =    l.MCOD.J    =  l,MROW) 

WRITE  ( 7, 1 120 ) 
1120   FORMAT    (16H*****EN0    CF  FILE) 

WRITE  (6,1125) 
1125   FORMAT    (  1  HO,  16HRESTART    PUNCHED  ) 

GO    TO  1140 


C 

c***** 

C 


POSSIBLE    MODIFICATION    TYPE  M5« 


061  6 

1  130 

WR I TE (10) PHED 

0617 

WRITE  (6,1135) 

0618 

1 1  35 

FORMAT    ( 1  HO .24HRESTART    WRITTEN   ON  TAPE 

) 

061  9 

1 1  40 

IF    (  IDBLE .NE . 1 ,OR. TIME. GE. EST IME  )    GO  TO 

1  145 

0620 

IDBLE   =  0 

062  1 

1TMAX   =    ITMAX   +  15 

0622 

GO    TO  825 

0623 

1  1  45 

WRITE    (6.1150)  TIME 

0624 

1  150 

FORMAT    ( 1H0.17HTOTAL   CASE    TIME  =,F10.6, 

10H  SECONDS. 

0625 

1  152 

IF    ( NOMEGA  .NE .0 )    GO   TO  1205 

0626 

IF    (LSIG.EQ.l )    GO   TO  5 

c 

c*** 

c 


CONVERT    PRESSURE    HEAD    TO    HYDRAULIC  HEAD.********** 


J    =  1 
MY    =  2 
1 155   A    =  ELEV    *  COSAL 
I    =  0 
MX    =  2 
XDIST    =  0 

IF    (  IMGLSD.EQ.l  )    XDIST    =  -DELX(l) 
1160    B   =    XDIST    *   SIN  AL 
1    =    1    +  1 

IF    (I.GT.MCOL)    GO    TO  1165 
XDIST    =    XDIST    +  OELX(MX-l) 
IFt IX(MX) .EG. I )    MX=    MX    +  1 
HEAD(I.J)    =    PHED(I.J)    +    A   +  8 
GO   TO  1160 

1  165   J   =   J    ♦  1 

IF    (J.GT.MROW)    GO    TO  1170 
ELEV   =   ELEV   -  DELY(MY-l) 
IF    (JY(MY).EQ.J)    MY=    MY    +  1 
GO   TO  1155 

1170    WRITE  (6,1175) 

1175  FORMAT    (  1 H 1  ,  46X  , 2 8HH YD R AUL I C 
LSIG   =  4 


FE  AD  DISTRIBUTION 


C 

C***    OBTAIN    PRINTOUT    OF    "PHED"    ARRAY    OR    "HEAD"  ARRAY.********** 

c 

1  180 
1185 
1  190 


1200 


DO    1185    J    =  l.MFOW 

WRITE    (6,1190)    J , ( PHED ( I , J ) , I    =  l.MCOL) 
FORMAT    (1H    13. 2X, 10012. 5/(6X, 1 OD 1 2 . 5 ) ) 
IF    (LSIG    -2)  1152,785.1200 
IF    (LSIG.E0.4)    GO    TO  5 
GO    TO  1110 


C 

C***    READ    IN    OMEGA    VALUE    FOR    NEXT    SEGMENT    OF    SEGMENTED    RUN .********* * 

C 

1205   READ    (5,1210)    CMEGA,  ITMAX 
1210    FORMAT  (F5.2.I5) 

IF    (ITMAX. EO.O)    GO    TO  5 

IF    (LSIG.EQ.l)    GO    TO  1205 

WRITE    (6.1215)    OMEGA, ITMAX 
1215   FORMAT    (1H0    22HC0NTINUE    WITH   OMEGA  = 

GO    TO  825 

END 


F    5.2. 10H,  ITMAX 


15) 
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0001  -  0005 


Type  and  dimension  declaration  statements 


0006 


© 


Start 

clock 

1  ' 

,  0007 

(  Is  input  card  available? 


0007  -  0009    |  0013  -  02*19 


f  0250 

MS  1  G  ■  0 

.0251 


0252  -  0281 


Set  pressure  head-type  boundary 
conditions  at  ends  of  rows 


0282  -  0317 


Set  boundary  conditions  of  all  types 
at  ends  of  columns 


\ 

f  0319 

MSIG 

-  1 

-01L8 


Iea_/  msig  -  0?VHb. 


/Print  head 
I       of  init 


heading  and  initialization  data  through  printing 
ial  distribution  of  hydraulic  conductivity 


Yes   /    Is  starting  distribution  of  pressure   \  No 
head  to  be  printed?   (IPSIG  -  1?) 


j  0421  -  0422 


Print  distribution  heading 


Yes  /Are  selected  nodt-s  to  be  \No 
printed?  (NNODES  >  0?) 


0426-0439 


(Print  selected  node  1 
identification J 


O- 


Calculation  for  each  iteration  begins 


0441  -  0460 


Determine  soil  unit  identity  of  first  node  of  a  row 
or  when  soil  unit  change  is  detected 


No    /     Is  there  an  inconsistency  in\  Yes 
soil  layering  input  data? 


0462  -  0463 


0465 


Yes/  Is  an  h-K  equation  to  be  used?  \  No 
(NUMLIN(NS) )  «=  999? 


^rint  error  message^ 


Process  algorithm  inserted  by  user 


0466 


6 


l£fi  /MSIG  -  0?\  No 


0468  -  0478,        0484  -  0505,  0507  -  0512 


Search  and  interpolate  h-K  table  and  assign  K-values  to  nodes 
of  solution  mesh  after  checking  position  of  each  node 
to  determine  whether  a  soil  unit  boundary  has  been  crossed 


Solve  the  finite  difference  equation  at 
each  node  of  the  solution  mesh 


0589  -  0591 


No    (       At  this  point  an  iteration  has  been  completed.  \  Yes 

Should  certain  tests  be  made?   (Iteration  No.  =  INTPRT?)/  [ 


© 


Yes  I  Are  selected  nodes  to  be  printed?  \  No 
(NNODES  >  0?) 


~~j  059? 


Print  PHED  values  for  selected  nodes 


0 


Figure  12.— Flow  chart  for  STDY2. 
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0594  -  0597 


Yes/uoc  processing  time  equalled  or  exceeded  ESTIME? 


Yps/Havp  the  number  of  iterations  equalled    ^  No 
\  or  exceeded  IIMAX? 


3  0^99 


KIs  the  pressure  head  distribution  \  Yes 
to  be  printed?  (ILSIG  =1?) 


0600  -  0601 


1  0605  -  06O6 


Print  time  exceeded  messag 


0- 


Print  distribution  heading 


Jl£603 


0607 


Is  pressure  head  distribution  to  be  savedx  No 
for  restart?  (KARPCH  =  1?) 


^Pu 


1  0608  -  0617 


Punch  restart  data  in  cards  or  write  them  on  tape 


0618 


Provided  processing  time  has  not  exceeded  its  limit, 
is  an  extra  15  iterations  to  be  obtained  for  a 
convergence-stability  check?  (IDBLE  =  1?) 


0619  -  0621 


622  -  0623 


Print  time  consumed  in  second 


d^ 


/Is  this  case  segmented  for  trial  of  different  \  Yes 
OMEGA  values?   (NOMEGA  >  0?) 


"10625  -  0645 


Determine  hydraulic  head  (HEAD) 


6 


,0646 


0 


0647  -  0649 


(5 


int  contents  of  PHED  array 
(may  contain  PHED  or  HEAD) 


0 


0 


0650 


0651 


2°_/lSIG  =  4?\  Yes 


L5652 


Q 


0653  -  0654 


(2 


Read  OMEGA  and  ITMAX  for  next  segment 


0 


0655 


No    f Have  all  segments  been  processed?    \  Yes 
(ITMAX  =  0?) 


0656  -  0657 


(5 


Print  informational  statement 


9 


6 


*  0 

0 


0658 


Figure  12. — Continued. 


Flow  chart 

The  flow  chart  (fig.  12)  contains  the 
major  branching  points  in  the  STDY2  program 
listing.     A  major  branch,  in  this  context, 
significantly  shifts  the  flow  of  the  program 
from  one  part  of  the  listing  to  another. 

The  numbers  over  each  box  of  the  flow 
chart  key  the  operation(s)  described  in  that 
box  to  statements  in  the  program  listing. 
When  the  number  key  over  a  box  consists  of 
the  end  points  of  a  range  of  numbers,  the 
program  processes  the  included  statements  in 
the  order  of  their  appearance  as  modified  by 
local  branching  to  nearby  statements. 

Glossary  of  input  variables 

Input  variables  are  defined  in  the  follow- 
ing glossary  in  the  order  in  which  they  must 
appear  in  the  input  data  deck.    As  noted  in 
their  explanations,  not  all  card  groups  are 
needed  for  every  case. 

Figure  13  shows  punchcard  layouts  for  the 
input  data.     The  format  number  at  the  left 
end  of  each  card  serves  to  identify  it  with 
an  identically  numbered  format  statement  in 
the  STDY2  program  listing.     Each  layout  image 

Text  continues  on  page  45. 
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represents  a  group  of  one  or  more  cards. 
They  are  in  the  order  of  their  appearance  in 
the  input  deck,  which  is  also  the  order  in 
which  they  are  discussed  in  the  glossary. 
Some  of  these  variables  were  also  discussed 
in  the  text  and  their  use  illustrated  in  the 
sample  problem.    Besides  variable  names, 
Fortran  formats  are  given  in  the  figure  and 
the  glossary.    A  sample  entry  of  each 
variable  is  shown  in  figure  13. 

The  input  deck  for  any  given  run  may 
include  the  data  for  as  many  cases  as  the 
user  desires.     Simply  add  one  case  behind 
another,  that  is,  card  group  1  for  case  m 
follows  immediately  behind  the  last  card 
group  of  case  m-1. 

Card  Group  1  -  A  single  card.     Must  be  present  in 
input  deck  for  processing  each  case.  Format 
(F5. 0,815)  . 

ESTIME  -  Time  in  seconds  that  user  allots  for  the 
processing  of  a  case  within  a  computer's  central 
processing  unit.     It  obtains  restart  data  before  a 
run  stops  when  it  exceeds  the  time  limit  given  on 
the  job  control  card.    This  latter  limit  must  be 
greater  than  ESTIME  by  at  least  the  amount  of  time 
necessary  to  compile  the  run.  CAUTION:  The 
frequency  of  time  checks  depends  on  INTPRT — see 
card  group  3.    When  several  cases  follow  each  other 
in  a  single  run,  the  job  control  card  time  should 
exceed  the  sum  of  the  several  ESTIME  values. 
CAUTION:  When  a  run  enters  an  endless  loop  because 
of  an  input  data  error,  ESTIME  cannot  be  checked. 
See  the  discussion  of  ITMAX,  card  group  3,  for  the 
procedure  to  follow  when  initializing  a  case — or 
when  making  a  major  change  in  input  data. 
KAREAD  =  1  means  restart  data  are  read  in. 

^  1  means  case  starts  from  one  of  program-generated 

initial  PHED-arrays. 
KARPCH  =  1  means  restart  data  are  punched  or  written 

on  magnetic  tape  at  the  end  of  case  processing. 
t  1  means  restart  data  are  not  saved  in  punched 

card  or  magnetic  tape  form. 
ITER  -  Iteration  number.     Its  input  value  should  be  0 
when  starting  to  solve  a  new  case.     Otherwise,  it 
should  have  the  value  of  the  number  of  the  iter- 
ation at  the  end  of  which  the  restart  data  were 
produced.     The  value  of  ITER  is  not  critical  to  the 
solution,  but  the  number  of  iterations  processed  by 
a  run  is  ITMAX-ITER.     So,  if  one  increases  ITMAX 
without  increasing  ITER,  he  will  get  more  iter- 
ations than  he  wants  or  else  ESTIME  will  be 
exceeded . 

IFILE  =  0  for  card  readin,  card  punchout  of  restart 
PHED  data. 

#  0  for  tape  readin,  tape  readout  of  restart 
PHED  data. 

A  given  input  tape  may  have  several  files  or 

PHED-arrays. 5 
The  value  assigned  IFILE  for  reading  that  tape  may 

be  determined  as  follows: 

IFILE  =  R  -  S 


These  are  program-defined  files  and  are  not  to  be 
confused  with  logical  tape  files.     A  given  computer  run 
may  produce  several  program-defined  files  in  one  logi- 
cal file,  depending  on  the  number  of  cases  processed, 
the  number  of  segments  in  a  case,  and  whether  IDBLE  =  1 
for  one  or  more  cases.     Logical  files  used  by  a  given 
run  are  identified  in  job  control  cards.    At  the  end  of 
a  run,  a  logical  file  is  terminated  with  an  end-of-file 
mark  on  the  tape.     The  program-defined  files  are  not  so 
terminated,  but  their  limits  are  defined  by  the 
DIMENSION  statement. 


where    R  =  the  number  representing  the  position  on 
the  tape  of  the  desired  file. 
S  =  the  number  representing  the  position  on 
the  tape  of  the  file  read  in  by  the 
preceding  case  (has  the  value  zero  for 
the  first  case  of  a  run) . 
For  example,  if  the  first  case  of  a  new  run 
should  start  from  the  PHED-array  of  the  first 
file,  then  IFILE  =1-0=1.     If  the  second  case 
must  then  use  the  fourth  file,  IFILE  =4-1=3. 
Again,  if  the  third  case  should  use  the  sixth 
file,  IFILE  =6-4=2.    When  the  initial  PHED- 
array  is  set  up  under  control  of  INISIG,  card 
group  2,  IFILE  must  either  be  0  to  produce 
punchcard  restart  or  any  number  other  than  0 
to  produce  tape  restart. 
IPSIG  =  1  to  print  PHED-distribution  with  initialization 
data . 

4  1  to  suppress  print  of  PHED-distribution  during 

initialization. 
LLSIG  =  1  to  print  PHED-distribution  at  end  of  case. 
^  1  to  suppress  print  of  PHED-distribution  at  end 

of  case. 

KTABLE  =  1  to  retain  h-K  table  from  the  immediately 
preceding  case  of  the  same  run  for  use  in 
processing  a  new  case. 

^  1  to  read  new  h-K  table  before  processing  a  case. 

KTABLE  must  be  0  or  some  value  other  than  1  for 
first  case  of  run. 
MCHNGE  =  0  means  that  restart  data  have  not  been 

modified  in  any  way  after  they  were  punched  at 
the  end  of  the  preceding  run,  so  that  boundary 
conditions  in  the  deck  are  compatible  with  the 
pressure  head  distribution  of  the  deck. 

^  0  means  that  restart  data  to  be  read  in  have  been 
processed  through  program  CARRY  or  modified  in 
some  other  way  such  that  boundary  conditions  must 
be  set  during  initialization  of  the  new  run. 
MCHNGE  may  also  be  given  a  value  other  than  0  for 
a  normally  restarting  run  when  the  user  wants  to 
print  the  starting  distribution  of  /(-values.  See 
KHPRNT,  card  group  6. 

MCHNGE  has  no  meaning  for  a  run  not  starting  with  a 
restart  PHED-array. 

Card  Group  2  -  A  single  card.    Must  be  present  in 
input  deck  for  processing  each  case.  Format 
(2F10.2,F5.2,5I5,2F10.2) 

LGTH  -  Perpendicular  distance  from  y-axls  to  the 

rightmost  boundary  of  the  flow  system.     See  page  6 
Solution  Mesh  and  the  Cartesian  Coordinate 
System. 

DEPTH  -  Perpendicular  distance  from  x-axls  to  the 

lowest  boundary  of  the  flow  system. 
SLOPE  -  Tangent  of  the  angle  between  the  x-axis  and 

the  horizontal. 
IMGTOP  =  1  if  any  part  of  top  cross  section  boundary 
coincident  with  x-axis  is  impermeable  or  is 
subject  to  a  non-zero  flux. 
^  1  if  all  parts  of  the  top  boundary  are  subject  to 
a  specified  pressure  head. 
IMGBOT  =  1  if  lower  cross  section  boundary  (or  its 
lowest  segment,  if  complex)  is  impermeable. 
^  1  otherwise. 
IMGLSD  =  1  if  any  part  of  left  cross  section  boundary 
coincident  with  the  y-axis  is  impermeable. 
^  1  otherwise. 
IMGRSD  =  1  if  right  cross  section  boundary  (or  its 
rightmost  segment,  if  complex)  is  impermeable. 
^  1  otherwise. 
INISIG  =  0  to  generate  initial  PHED-array  in  which 
PHED  =  PHEDS  at  every  node  in  solution  mesh, 
except  those  on  ^-specified  boundaries. 
i  0  to  generate  initial  PHED-array  which  is 
smoothly  distributed  in  the  ^-direction 
beginning  with  -ELEV  on  the  top  boundary  and 
decreasing  by  increments  of  by  from  row  to  row. 
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PHEDS  -  The  beginning  PHED-value  for  each  node  in  the 
solution  mesh  except  those  on  ^-specified  boundaries 
when  beginning  the  processing  of  a  new  case.  Has 
no  meaning  for  restarts.    Has  no  meaning  if  INISIG 
=  1. 

ELEV  -  Elevation  above  a  datum  of  the  origin  of 

coordinates  of  the  Cartesian  coordinate  system.  It 
is  often  convenient  to  set  the  datum  at  the  lower 
left-hand  corner  of  the  cross  section,  but  its 
position  may  be  completely  arbitrary.     See  INISIG. 

Card  Group  3  -  A  single  card.    Must  be  present  in 
input  deck  for  processing  each  case.  Format 
(215, F10. 2,715) 

ITMAX  -  ITMAX-ITER  is  the  number  of  iterations  to  be 
processed  during  a  given  run.    When  this  number  is 
reached,  if  KARPCH  =  1  (card  group  1),  restart  data 
are  obtained  in  cards  or  on  tape.     This  is  the  best 
way  to  stop  the  processing  of  a  case.    Also  see  the 
definition  for  IDBLE  below.     If  the  case  is  segmented 
to  try  different  values  of  OMEGA,  this  is  the 
number  of  iterations  allotted  to  the  first  OMEGA 
value.     The  value  given  ITMAX  should  be  a  multiple 
of  that  given  INTPRT.    When  starting  a  new  case  or 
when  making  such  major  changes  in  input  data  as 
changing  Ax  and  by,  ITMAX  should  be  given  a  small 
value,  say  from  1  to  3,  to  obtain  just  enough 
iterations  to  make  sure  no  errors  have  been  made  in 
the  input  data.    For  such  a  run,  the  time  limit  on 
the  job  control  card  should  be  set  at  only  5  seconds 
or  so  to  assure  that  an  input  error  that  throws  the 
program  into  an  endless  loop  does  not  result  in  the 
use  of  excessive  computer  time. 

INTPRT  -  The  number  of  iterations  between  printouts  of 
pressure  heads  for  selected  nodes.    Time  checks 
(for  comparison  with  ESTTME,  card  group  1)  and 
iteration  checks  (for  comparison  with  ITMAX)  take 
place  only  after  such  printouts.     Even  if  no  nodes 
are  selected  for  printing  (see  NNODES) ,  INTPRT  must 
be  given  a  value  to  control  the  frequency  of 
checking  ESTIME  and  ITMAX. 

OMEGA  -  The  overrelaxation  factor  (to)  .     If  the  case  is 
segmented  and  several  uj-values  tested,  this  is  the 
initial  co-value. 

NOMEGA  =  0  for  normal,  unsegmented  case. 

j  0  for  case  segmented  for  changing  relaxation 
factor  (oj)  . 

When  KARPCH  =  1,  NOMEGA  /  0  results  in  a  program- 
defined  file  of  PHED  data  in  cards  or  magnetic 
tape  for  each  value  of  10. 
NNODES  -  The  number  of  nodes  selected  for  printing 
under  control  of  INTPRT.    May  range  from  0  to  8. 
IDBLE  =  1  means  that  two  sets  of  restart  data  15 
iterations  apart  are  wanted  for  convergence 
checking  by  program  COMPAR.     In  this  event,  15 
iterations  in  excess  of  the  given  ITMAX  are 
processed.    KARPCH  must  have  the  value  1. 
4  1  means  that  case  stops  at  the  end  of  ITMAX 
iterations  with  only  one  restart  data  set  (the 
latter  is  obtained  only  if  KARPCH  =  1) . 
NCARDY  -  The  maximum  value  of  MY,  that  is,  the  number 

of  pairs  of  DYLGTH(MY) ,  DELY(MY) .  See  card  group  9. 
NCARDX  -  The  maximum  value  of  MX,  that  is,  the  number 

of  pairs  of  DXLGTH(MX) ,  DELX(MX) .  See  card  group  10. 
JGEOM  -  The  number  of  row  subsections  into  which  a 

flow  region  has  been  divided.     See  card  group  11. 
IGEOM  -  The  number  of  column  subsections  into  which  a 
flow  region  has  been  divided.     See  card  group  12. 

Card  Group  4  -  An  optional  card  group  which  must  be 
included  if  NNODES  (card  group  3)  is  different  from 
0.    Consists  of  one  or  two  cards,  depending  on  the 
number  of  nodes  selected  for  printing  under  control 
of  INTPRT.    Format  (8F10.2) — up  to  four  pairs  of 
the  following  variables  per  card.    Unneeded  fields 
may  be  blank. 

COORDI(K)  -  The  x-coordinate  of  the  Kth  node  selected 
for  printing  under  control  of  INTPRT. 


COORDJ(K)  -  The  ^-coordinate  (positive  down)  of  the 
Kth  node  selected  for  printing  under  control  of 
INTPRT. 

NOTE:    For  use  in  the  model,  the  above  must  be 
converted  to  I, J  coordinates.     If  a  point 
identified  by  its  x,y  coordinates  as  given  by 
the  above  variables  does  not  coincide  with  a  node 
of  the  solution  mesh,  the  nearest  node  to  the 
right  and  below  the  x,y  position  will  be  used. 

Card  Group  5  -  Five  cards,  even  if  some  or  all  of  them 
are  blank,  must  be  in  input  deck  for  processing 
each  case.    Format  (20A4) 

COMENT  -  Variable  representing  the  string  of  alpha- 
numeric characters  that  serve  as  an  identification 
and  heading  for  a  case's  printout. 

Card  Group  6  -  A  single  card  that  must  be  present  in 
the  input  deck  for  processing  each  case.  Format 
(215) 

LUNITS  -  The  number  of  soil  units  present  in  the  cross 
section.    May  be  any  number  up  to  and  including  5. 

KHPRNT  =  1  if  the  starting  K-distribution  is  printed. 
4  1  otherwise. 

NOTE:  The  facility  for  printing  the  K-distribution 
is  provided  as  a  useful  way  to  check  whether  soil 
unit  boundaries  have  been  assigned  correctly  in 
the  solution  mesh.    The  user  should  set  INISIG  = 
0  and  PHEDS  >  0.00  (both  in  card  group  2).  This 
will  specify  a  starting  condition  of  h  >  0  at 
all  nodes  so  that  the  printed  K-distribution  will 
contain  only  saturated  hydraulic  conductivities. 
With  such  a  distribution,  it  Is  relatively  easy 
to  correlate  nodes  and  soil  units.    A  single 
iteration  is  all  that  is  needed  to  make  this 
check.    Then  the  case  may  be  started  over  again 
with  whatever  initial  PHED-distribution  is  most 
appropriate  to  the  case.    The  initial  K- 
distribution  will  contain  meaningless  data  if 
KAREAD  =  1  (if  the  case  is  being  restarted) , 
unless  MCHNGE  has  some  value  other  than  0. 

Card  Group  7  -  A  single  card  which  must  be  present  in 
the  input  deck  for  processing  each  case.  Format 
(1015) — up  to  five  pairs  of  the  following 
variables.    Unneeded  fields  may  be  blank. 
NUMLIN(NS)  -  Number  of  pairs  of  values  of  pressure 

head  vs.  hydraulic  conductivity  appearing  in  the 
NSth  h-K  table. 
=  999  indicates  that  h-K. relation  is  given  by 
equation  rather  than  by  table. 
NUMBRK(NS)  -  Number  of  x,y  coordinate  pairs  needed  to 
describe  the  lower  boundary  of  the  NSth  soil  unit. 
See  XBRK(K),  YBRK(K) ,  card  group  8.     NUMBRK(NS)  has 
a  minimum  value  of  2  for  each  soil  unit. 

Card  Group  8  -  A  multiple  card  group.  The  input  deck 
must  contain  a  separate  card  group  8  for  each  soil 
unit  in  the  modeled  cross  section. 

Subset  a  -  One  or  two  cards  depending  upon  the  number 
of  x,u  coordinate  pairs  needed  to  describe  the 
lower  boundary  of  a  soil  unit.     Format  (8F10.2) — up 
to  four  pairs  per  card  of  the  following  variables. 
Unneeded  fields  may  be  blank. 

XBRK(N.NS)  -  The  x-coordinate  of  the  Nth  breakpoint  in 
the  bottom  boundary  of  the  NSth  soil  unit.     Such  a 
boundary,  which  may  be  curving  or  complex  in  shape, 
may  be  approximated  by  a  series  of  up  to  seven 
straight  lines,  the  meeting  point  between  two  con- 
secutive segments  of  different  slope  being  called  a 
breakpoint.    An  intersection  of  the  lower  boundary 
of  a  soil  unit  with  a  boundary  of  the  modeled  cross 
section  is  also  considered  a  breakpoint.     So,  each 
soil  unit  has  a  minimum  of  two  lower-boundary 
breakpoints . 

YBRK(N.NS)  -  The  ^-coordinate  (positive  down)  of  the 

Nth  breakpoint  in  the  bottom  boundary  of  the  NSth 
soil  unit. 
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NOTE  :    The  note  appended  to  card  group  4  applies  to 
this  subset  also. 

Subset  b  -  One  or  more  cards  depending  on  NUMLIN(NS) 
(card  group  7) .     This  subset  is  absent  from  the 
input  deck  if  NUMLIN(NS)  =  999.     It  is  also  omitted 
if  KTABLE  =  1  (card  group  1).     Format  (8E10.3)  — 
eight  values  of  the  following  variable  per  card — 
unneeded  fields  in  the  last  card  may  be  blank. 

PTAB(IT,NS)  -  The  array  of  pressure  heads  in  the  table 
of  pressure  head  versus  hydraulic  conductivity  for 
soil  unit  NS.     Subscript  IT  identifies  the  particu- 
lar line  of  the  table,  that  is,  1  <_  IT  <=  NUMLIN(NS). 
The  order  of  entry  should  be  from  high  pressure  to 
low  (in  the  order  of  increasing  suction) . 

Subset  c  -  One  or  more  cards  depending  on  NUMLIN(NS) 
(card  group  7) .     This  subset  is  absent  from  the 
input  deck  if  NUMLIN(NS)  =  999.     It  is  also  omitted 
if  KTABLE  =  1  (card  group  1).    Format  (8E10.3)  - 
eight  values  of  the  following  variable  per  card — 
unneeded  fields  in  the  last  card  may  be  blank. 

KTAB(IT,NS)  -  The  array  of  hydraulic  conductivities  in 
the  table  of  pressure  head  versus  hydraulic  conduc- 
tivity for  soil  unit  NS.     See  discussion  of  subset 
b.     There  should  be  the  same  number  of  KTAB  entries 
as  there  are  PTAB  entries.     KTAB(1,NS)  should  be 
the  saturated  value  of  K,  corresponding  to 
h  =  0  =  PTAB(1,NS).     KTAB(2,NS)  should  be  the 
#-value  corresponding  to  PTAB(2,NS)  and  so  on. 

Card  Group  9  -  One  to  three  cards  depending  on  the 

number  of  changes  in  Ay  in  the  solution  mesh.  Must 
be  present  in  input  deck  for  processing  each  case. 
Format  (4 (F10. 2.F10.3) ) — up  to  four  pairs  of  the 
following  variables  per  card — unneeded  fields  in 
the  last  card  may  be  blank. 

DYLGTH(MY)  -  The  distance  from  the  x-axis  to  the  MYth 
boundary  between  regions  of  different  Ay  in  the 
solution  mesh.     The  x-axis  itself  is  the  first  such 
boundary,  so  DYLGTH(l)  =  0.00.     If  by  is  constant 
throughout  the  solution  mesh,  only  DYLGTH ( 1 )  is 
needed.    One  does  not  need  to  measure  DYLGTH  values 
precisely.     If  DYLGTH (MY)  does  not  correspond 
exactly  to  the  J-value  of  some  row  of  the  solution 
mesh,  then  Ay  in  that  mesh  will  change  at  the  row 
immediately  above  the  indicated  position. 

D ELY (MY)  -  The  MYth  value  of  Ay . 

Card  Group  10  -  One  to  three  cards  depending  on  the 
number  of  changes  in  Ax  in  the  solution  mesh.  Must 
be  present  in  input  deck  for  processing  each  case. 
Format  (4(F10.  2.F10.3)  )— up  to  four  pairs  of  the 
following  variables  per  card — unneeded  fields  in 
the  last  card  may  be  blank. 

DXLGTH(MX)  -  The  distance  from  the  y-axis  to  the  MXth 
boundary  between  regions  of  different  Ax  in  the 
solution  mesh.     The  y-axis  itself  is  the  first  such 
boundary,  so  DXLGTH(l)  =0.     If  Ax  is  constant 
throughout  the  solution  mesh,  only  DXLGTH(l)  is 
needed.     One  does  not  need  to  measure  DXLGTH  values 
exactly.     If  DXLGTH (MX)  does  not  correspond  exactly 
to  the  I-value  of  some  column  of  the  solution  mesh, 
then  Ax  in  that  mesh  will  change  at  the  column 
immediately  to  the  left  of  the  indicated  position. 

DELX(MX)  -  The  MXth  value  of  Ax. 

Card  Group  1 1  -  One  card  for  each  row  subsection. 
Must  be  present  in  input  deck  for  processing  each 
case.     Format  (4F10.  2,  215,  2F10.  2) —one  set  of  the 
following  variables  per  card. 

STARTY(NSUBY)  -  The  distance  from  the  X-axis  to  the 
top  boundary  row  of  row  subsection  NSUBY.     NSUBY  is 
an  index  variable  taking  the  values  1,  2,   .   .  ., 
JGEOM.     See  page    8,  Subdivision  of  Flow  Cross 
Section  and  the  note  below  for  details  of  dividing 
the  cross  section  into  subsections. 

STOPY (NSUBY)  -  The  distance  from  the  x-axis  to  the 
bottom  boundary  row  of  row  subsection  NSUBY. 

BEGX (NSUBY)  -  The  distance  from  the  y-axis  to  the 

left-hand  boundary  column  of  row  subsection  NSUBY. 


ENDX(NSUBY)  -  The  distance  from  the  y-axis  to  the 

right-hand  boundary  column  of  row  subsection  NSUBY. 
JBETA(NSUBY)  -  Signals  type  of  boundary  condition  at 
the  beginning  of  rows  in  subsection  NSUBY. 
=  0  where  h  is  known  and  has  the  same  value  every- 
where on  the  boundary.     An  exception  to  the 
condition  of  h  being  equal  everywhere  on  the 
boundary  is  discussed  on  page   2  5  . 
=  1  for  impervious  boundary. 

=  2  where  the  ^-distribution  along  the  boundary  is 
hydrostatic . 

JETA(NSUBY)  -  Signals  type  of  boundary  condition  at 
the  ends  of  rows  in  subsection  NSUBY. 

=  0  where  h  is  known  and  has  the  same  value  every- 
where on  the  boundary.     See  JBETA(NSUBY)  for  an 
exception. 

=  1  for  impervious  boundary. 

=  2  where  the  ^-distribution  along  the  boundary  is 
hydrostatic. 

BCLJ(NSUBY)  -  The  pressure  head  for  an  ^-specified 
boundary  at  the  left  end  of  the  rows  in  subsection 
NSUBY.     If  h  is  distributed  hydrostatically,  this 
is  the  value  of  h  at  the  left  end  of  the  top  row  of 
subsection  NSUBY.    Has  no  meaning  for  an  impervious 
boundary  or  for  the  pressure  head  boundary  discussed 
on  page    2  5  . 

BCRJ(NSUBY)  -  The  pressure  head  for  an  ^-specified 

boundary  at  the  right  end  of  the  rows  in  subsection 
NSUBY.     If  h  is  distributed  hydrostatically,  this 
is  the  value  of  h  at  the  right  end  of  the  top  row 
of  subsection  NSUBY.    Has  no  meaning  for  an 
impervious  boundary  or  for  the  pressure  head 
boundary  discussed  on  page   25  • 

NOTE  :   Before  being  used  for  program  control  in  a 
computer,  the  first  two  variables  on  this  card 
are  converted  to  the  J-value  of  the  top  and 
bottom  boundary  rows  of  subsection  NSUBY.  The 
next  pair  of  variables  is  converted  to  the  I- 
value  of  the  left  and  right  boundary  columns  of 
the  same  subsection. 

Consider  two  row  subsections,  one  of  which  lies 
immediately  above  the  other.    At  the  point  where 
the  two  subsections  connect,  there  is  either  a 
geometrical  change  or  a  boundary  condition 
change.     In  either  event,  one  usually  selects 
Ay-values  so  that  the  point  of  change  coincides 
with  a  row  of  nodes.     Such  a  row  is  in  a  fixed 
position  relative  to  the  x-axis,  though  its 
J-value  will  change  if  Ay  between  the  x-axis  and 
the  row  changes.    Other  rows  in  the  vicinity  are 
subject  to  change  both  in  position  and  in  J-value 
when  Ay  changes.     The  row  of  fixed  position  will 
either  be  the  bottom  boundary  of  the  upper 
subsection  or  the  top  boundary  of  the  lower. 
Thus,  the  floating  row  immediately  below  it  or 
above  it,  respectively,  will  be  a  boundary  of  the 
other  subsection.    These  floating  Subsection 
boundaries  are  also  encountered  next  to  boundaries 
on  which  pressure  heads  are  specified  because 
such  boundaries  are  fixed  but  are  not  included  in 
cross  sections. 

Because  it  depends  on  Ay  or  Ax,  the  exact  position 
of  a  floating  column  or  boundary  may  be  tedious 
to  determine  and  may  also  change  if  mesh  incre- 
ments are  changed  during  the  course  of  solving  a 
given  case.    Determining  them  exactly  is  not 
necessary,  however,  if  one  follows  certain  pre- 
cautions.    In  general,  these  rules  should  guide 
the  specification  of  subsection  boundary 
positions: 

1.  The  position  of  fixed  boundaries  should  be 
specified  exactly  as  a  distance  x  or  y. 

2.  For  a  floating  boundary  next  to  a  fixed  row  or 
column: 

a.  If  nearer  the  principal  axis  than  the  fixed 
line,  measure  to  the  latter  and  subtract  some 
quantity  that  is  smaller  than  the  smallest 
mesh  increment  likely  to  be  used. 
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b.  If  farther  from  the  principal  axis  than  the 
fixed  line,  measure  to  the  latter  and  add 
some  quantity  that  is  smaller  than  the 
smallest  mesh  increment  likely  to  be  used. 
The  small  quantities  mentioned  in  2a  and  2b  above 

should  not  be  smaller  than  0.001. 
If  h  at  one  or  both  ends  of  a  subsection  is  distrib- 
uted hydrostatically ,  one  must  specify  its  value(s) 
for  the  top  row  of  the  subsection.     Thus,  if  that 
row  is  a  floating  boundary,  one  has  to  locate  it 
precisely  to  specify  h.     STARTY(NSUBX)  may  be 
given  either  precisely  or  according  to  the  method 
given  in  the  preceding  paragraph,  but  h  must  be 
given  its  exact  value. 

Card  Group  12  -  One  card  for  each  column  subsection. 
Must  be  present  in  input  deck  for  processing  each 
case.     Format  (4F10.  2, 215,  2F10.  2.E10.  2)— one  set  of 
the  following  variables  per  card. 

STARTX(NSUBX)  -  The  distance  from  the  2/-axis  to  the 
left-hand  boundary  column  of  column  subsection 
NSUBX.     NSUBX  is  an  index  variable  taking  the 
values  1,   2,   .   .   .,  IGEOM.     See  page    8,  Sub- 
division of  Flow  Cross  Section,  and  the  note  at  the 
end  of  card  group  11  for  detailed  discussion  of 
dividing  a  cross  section  into  subsections. 

STOPX(NSUBX)  -  The  distance  from  the  y-axis  to  the 
right-hand  boundary  column  of  column  subsection 
NSUBX. 

BEGY (NSUBX)  -  The  distance  from  the  x-axis  to  the  top 

boundary  row  of  column  subsection  NSUBX. 
ENDY (NSUBX)  -  The  distance  from  the  x-axis  to  the 

bottom  boundary  row  of  column  subsection  NSUBX. 
IBETA(NSUBX)  -  Signals  type  of  boundary  condition  at 
the  top  of  the  columns  in  subsection  NSUBX. 

=  0  for  known  h  boundary. 

t  0  for  impervious  or  flux  boundary. 
IETA(NSUBX)  -  Signals  type  of  boundary  condition  at 
the  bottom  of  the  columns  in  subsection  NSUBX. 

=  0  for  known  h  boundary. 

^  0  for  impervious  boundary. 
BCUI (NSUBX)  -  The  pressure  head  for  an  ^-specified 

boundary  at  the  tops  of  columns  in  subsection 

NSUBX.     Has  no  meaning  for  an  impervious  or  flux 

boundary. 

BCBI (NSUBX)  -  The  pressure  head  for  an  h-specified 
boundary  at  the  bottoms  of  columns  in  subsection 
NSUBX.     Has  no  meaning  for  an  impervious  boundary. 

FLUX(NSUBX)  -  The  flux  of  water  perpendicular  to  the 
upper,  horizontal  surface  of  column  subsection 
NSUBX.    Units  should  be  the  same  as  hydraulic 
conductivity  units.    For  an  impervious  surface, 
FLUX  =  0.0.    Has  no  meaning  for  an  ^-specified 
boundary. 

Card  Group  13  -  A  multiple  card  group  produced  by  a 
previous  run  for  restart  purposes.    May  also  be  a 
keypunched  initialization  deck  when  a  user  has  some 
way  to  closely  approximate  the  solution  PHED-array. 
For  a  new  run  for  which  the  user  cannot  give  an 
approximate  PHED-distribution,  there  is  no  card 
group  13.     When  a  magnetic  tape  is  used  for  restart 
data,  there  is  no  card  group  13.    Format  (6D13.6) — 
six  values  of  the  following  variable  per  card — 
unneeded  fields  in  the  last  card  may  be  blank. 
PHED(I,J)  -  The  pressure  head  value  at  node  I, J  as  it 

was  at  the  end  of  the  last  iteration  of  the 

previous  run. 

NOTE:    See  discussion  of  DOUBLE  PRECISION  mentioned 
previously  under  Model  Dimensions,  page    26.  When 
magnetic  tape  is  used  for  input/output  and  when 
it  is  anticipated  that  CARRY  might  subsequently 
be  used  to  refine  the  mesh  size,  then  PHED  should 
be  dimensioned  for  the  most  refined  mesh  expected, 
that  is,  so  that  I, J  in  PHED (I, J)  for  the  DOUBLE 
PRECISION  statement  have  the  largest  values  they 
are  ever  expected  to  have  for  the  case  at  hand. 


NOTE  :   For  cross  sections  containing  a  large  number 
of  nodes,  using    a  magnetic  tape  in  place  of  card 
group  13  is  faster,  cheaper,  and  easier.  This 
calls  for  the  inclusion  of  tape  assignment  cards 
among  the  job  control  cards  given  ahead  of  the 
source  deck.     It  also  calls  for  giving  IFILE 
(card  group  1)  some  value  besides  0.  KAREAD 
(card  group  1),  however,  must  have  the  value  1 
for  tape  readin  as  well  as  for  card  readin.  See 
the  discussion  of  IFILE,  card  group  1. 

Card  Group  14  -  a  group  consisting  of  two  or  more 
cards.    Present  in  the  input  deck  only  if  the 
processing  of  a  case  is  segmented  to  try  different 
overrelaxation  factors  (NOMEGA  =  1) .  Format 
(F5.2,I5) — one  set  of  the  following  variables  per 
card . 

OMEGA  -  See  same  variable  in  card  group  2.  When  given 
in  this  card  group,  OMEGA  is  the  2d,  3d,  4th,  .  .  . 
value  of  ui  to  be  tried  while  processing  the  case  at 
hand. 

ITMAX  -  See  same  variable  in  card  group  2.    When  giyen 
in  this  card  group,  ITMAX  is  the  value  of  the 
iteration  number  (accumulating)  at  which  pro- 
cessing using  the  associated  co-value  will  stop. 
ITMAX  should  have  a  value  that  is  a  multiple  of 
INTPRT. 

=  0  on  final  card  of  this  group. 

Glossary  of  noninput  variables 

A  -  Used  in  calculation  of  HEAD. 

ALPHA  -  Represents  the  angle  whose  tangent  is  the 

value  SLOPE  (input  card  group  2) . 
AX  -  A  term  in  the  finite  difference  equation. 


K. 


X-  4 


Ax_ 

AY  -  A  term  in  the  finite  difference  equation. 


K.    .  , 

=  Lt£^ 

ty- 

B  -  Used  in  calculation  of  HEAD. 

BCL(NSUBY)  =  BCLJ(NSUBY)  and  used  to  set  hydrostatic 

boundary  condition. 
BCR(NSUBY)  =  BCRJ(NSUBY)  and  used  to  set  hydrostatic 

boundary  condition. 
CHKTM  -  To  set  or  reset  computer  clock  and  to  read 

elapsed  time.     This  variable  might  not  be  necessary 

at  other  facilities. 
C0SAL  -  Cosine  of  the  angle  ALPHA. 
CX  -  A  term  in  the  finite  difference  equation. 

Ax+ 

CY  -  A  term  in  the  finite  difference  equation. 

DEL  -  Used  in  setting  impermeable  and  flux  boundary 
conditions  at  ends  of  columns  and  is  the  elevation 
difference  between  an  imaginary  node  and  its  real 
counterpart  immediately  inside  the  boundary. 

DELK(MY)  =  DELX(MX)  or  D ELY (MY)   (input  card  groups  10 
and  9)  introduced  so  that  either  could  be  used  in  a 
single  algorithm. 

DELTA  -  A  term  In  the  finite  difference  equation. 


-  ( 


K.    .  ,  -  K.  ... 

h*L=±  t-.J+I 

Ay.  +  Ay+ 


K. 


)  cos  a  +  (- 


Ax_  +  Ax+ 

DELXM  =  Ax_,  that  is,  Ax  to  the  left  of  a  node. 
DELXP  =  Ax+,  that  is,  Ax  to  the  right  of  a  node 
DELYM  =  Aj/_,  that  is,  Ay  above  a  node. 
DELYP  =  Ay+,  that  is,  Ay  below  a  node. 
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ELEVS  -  Readin  value  of  ELEV,  saved  because  the  latter 

is  modified  twice  in  the  program. 
ELIJ  -  Elevation  of  node  I, J;  used  in  determining 

which  soil  unit  applies  at  node  I, J. 
EX  -  A  term  in  the  finite  difference  equation. 

=  2 
Ax_  +  bx+ 

EY  -  A  term  in  the  finite  difference  equation. 
=  2 
=         +  Az/+ 

FACTOR  -  Interpolation  factor  for  calculating  hydrau- 
lic conductivity  when  the  corresponding  pressure 
head  lies  between  two  entries  in  the  table  of  PTAB 
versus  KTAB. 

GRAD  -  Represents  the  slope  of  a  straight-line  segment 
in  the  lower  boundary  of  a  soil  unit.    Used  in 
determining  which  soil  unit  applies  at  each  node. 

HCON(I.J)  -  Conductivity  for  node  I, J. 

HEAD(I,J)  -  Hydraulic  head  at  node  I, J. 

HEDA  -  Dummy  variable  that  represents  PHED(I-1,J)  in 
finite  difference  equation.  Provides  vehicle  for 
substituting 

PHED(I+1,J)  +  (Ar_  +  Ax+)  sin  a 

in  equation  for  left  boundary  node  when  that 
boundary  is  impermeable. 
HEDB  -  Dummy  variable  that  represents  PHED(I+1,J)  in 
finite  difference  equation.    Provides  vehicle  for 
substituting 

PHED(I-1,J)  -  (Az_  +  Az+)  sin  a 

in  equation  for  right  boundary  node  when  that 

boundary  is  impermeable. 
I  -  Column  number,  1,  in  the  finite  difference 

equation.     Also  used  as  a  DO  loop  index. 
IBEG(NSUBY)  -  The  I-value  of  the  left-hand  boundary 

column  of  row  subsection  NSUBY. 
IBRK(N,NS)  -  The  I-coordinate  of  the  Nth  breakpoint  in 

the  bottom  boundary  of  the  NSth  soil  unit. 
ICHK  -  Represents  IMGTOP  or  IMGLSD  (input  card  group 

2)  so  that  either  can  appear  in  a  single  algorithm. 
ICT  -  Counter  used  in  reading  restart  tape.  Enables 

program  to  skip  over  unwanted  files  of  data  on  a 

tape  produced  by  a  multicase  run. 

IDUM  -  Dummy  variable  that  represents  other  variables 
where  the  latter,  because  of  subscripting  or 
because  they  are  of  the  REAL  type,  cannot  be  used 
in  USASI  Fortran. 

IDUMA  -  Dummy  variable  used  in  the  same  way  as  IDUM. 

IEND (NSUBY)  -  The  I-value  of  the  right-hand  boundary 
column  of  row  subsection  NSUBY. 

UK  -  Dummy  variable  that  represents  a  given  value  of 
I  or  J  as  the  starting  index  of  a  DO  loop,  using  I 
or  J  as  an  index. 

INODE(K)  -  The  I-coordinate  of  the  Kth  node  selected 
for  printing  under  control  of  INTPRT. 

IPRINT  -  Used  with  INTPRT  (input  card  group  3)  in 
controlling  frequency  of  printing  PHED-values  for 
selected  nodes  and  also  frequency  of  checking 
elapsed  time  and  number  of  iterations  processed. 

ISTART (NSUBX)  -  The  I-value  of  the  left-hand  boundary 

column  of  column  subsection  NSUBX. 
ISTOP (NSUBX)  -  The  I-value  of  the  right-hand  boundary 

column  of  column  subsection  NSUBX. 
ITMAXS  -  A  storage  variable  for  ITMAX.    When  changing 

OMEGA  values  in  a  run,  each  td  is  used  a  number  of 

iterations  equal  to  ITMAX.     ITMAXS  is  set  equal  to 

ITMAX  at  the  beginning  and  increments  ITMAX  each 

time  a  new  uj  is  read. 
IX  (MX)  -  The  I-value  of  the  MXth  column  at  which  Aa: 

changes  in  value. 
J  -  Row  number,  j,  in  the  finite  difference  equation. 
JBEG (NSUBX)  -  The  J-value  of  the  top  boundary  row  of 

column  subsection  NSUBX. 


JBRX(N,NS)  -  The  J-coordinate  of  the  Nth  breakpoint  in 

the  bottom  boundary  of  the  NSth  soil  unit. 
JEND (NSUBX)  -  The  J-value  of  the  bottom  boundary  row 

of  column  subsection  NSUBX. 
JNODE(K)  -  The  J-coordinate  of  the  Kth  node  selected 

for  printing  control  of  INTPRT . 
JSTART (NSUBY)  -  The  J-value  of  the  top  row  of  row 

subsection  NSUBY. 
JSTOP (NSUBY)  -  The  I-value  of  the  bottom  row  of  row 

subsection  NSUBY. 
JY(MY)  -  The  J-value  of  the  MYth  row  at  which  by 

changes  in  value. 
K  -  A  subscripting  index  for  DO  loops. 
KAVE  -  An  average  value  of  hydraulic  conductivity  at 

the  surface  of  the  soil.    Used  in  setting  non- 
saturated  flux  boundary  condition. 
KBETA  -  Unsubscripted  representation  of  JBETA(NSUBY) , 

whose  value  can  be  changed  during  execution.  Used 

in  setting  boundary  condition  at  left  end  of  row. 
KD(MY)  -  Represents  IX  or  JY  so  that  either  may  appear 

in  a  single  algorithm. 
KEND(NCT)  -  Represents  ISTOP (NSUBX) ,  JSTOP (NSUBY) , 

IEND (NSUBY),  JEND (NSUBX)  so  that  any  one  of  them 

may  appear  in  a  single  equation. 
KETA  -  Unsubscripted  representation  of  JETA(NSUBY) , 

whose  value  can  be  changed  during  execution.  Sets 

boundary  condition  at  right  end  of  row. 
KSIG  -  A  signal  variable;  controls  flow  of  program. 
KSTART (NCT)  -  Represents  ISTART (NSUBX) ,  JSTART (NSUBY) , 

IBEG (NSUBY),  JBEG (NSUBX)  so  that  any  one  of  them 

may  appear  in  a  single  equation. 

KSTOP  -  The  I-value  or  J-value  of  the  last  column  or 
row,  respectively,  in  a  subsection.  Replaces 
subscripted  variables  as  an  index  in  DO  loops. 

L  -  Takes  the  values  1-8  and  is  used  to  break  the  h-K 
table  into  eighths  for  the  rapid  lookup  of 
HCON(I.J) . 

LNUM  -  Signal  variable;  directs  flow  of  program  while 

printing  h-K  table. 
LSIG  -  Signal  variable;  directs  flow  of  program  after 

writing  PHED-  or  HEAD-array. 
LSTOP  -  The  I-  or  J-value  of  the  final  (boundary)  node 

at  the  end  of  a  row  or  column.     Replaces  subscripted 

variables  as  an  index  in  DO  loops. 
MCOL  -  The  number  of  columns ,  including  imaginary 

columns,  in  the  solution  mesh. 
MCT  -  Represents  JGEOM  or  IGEOM  so  that  either  may 

appear  in  a  single  algorithm. 
MROW  -  The  number  of  rows,  including  imaginary  rows, 

in  the  solution  mesh. 
MSIG  -  Signal  variable;  directs  flow  of  program  after 

setting  boundary  conditions. 
MXMYST  -  Stores  the  starting  value  of  MX  for  a  given 

subsection.     Resets  MX  when  starting  new  rows 

within  the  subsection. 
NCT  -  An  index;  controls  certain  program  loops. 
NSIG  -  A  signal  variable;  controls  flow  of  program. 
NUM  -  Separates  the  printed  pressure  head-hydraulic 

conductivity  table  into  four  columns  in  which  PTAB 

increases  down  first  row  first,  then  down  second, 

and  so  forth. 
NUMA  -  Used  in  printing  PTAB-KTAB  table.  Allows 

changing  format  when  blanks  occur  in  fourth  segment 

of  table.  - 
NXCRD  -  Initial  value  of  NCARDX. 
NYCRD  -  Initial  value  of  NCARDY. 

SDUMA  -  A  dummy  variable  that  represents  STARTJ (NSUBY) , 
BEGJ (NSUBY),  STARTI (NSUBX) ,  and  BEGI (NSUBX) ,  so 
that  any  one  of  them  may  appear  in  a  single 
algorithm. 

SDUMB  -  A  dummy  variable  used  to  represent  STOPJ (NSUBY) , 
ENDI(NSUBY)  ,  STOPI  (NSUBX)  ,  and  ENDJ  (NSUBX),  so  that 
any  one  of  them  may  appear  in  a  single  algorithm. 

SINAL  -  The  sine  of  ALPHA. 

SUMX  -  Determines  the  I-  and  J-values  associated  with 

various  x  and  y  input  measurements. 
SUMY  -  Used  in  same  way  as  SUMX. 
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TIME  -  Accumulated  CPU  time  in  seconds.     Its  value  is 
updated  periodically  by  the  internal  timing  routine 
(TASKTM)  and  compared  against  ESTIME.     When  TIME 
exceeds  ESTIME,  the  run  is  stopped. 

TTIME  -  Converts  time  obtained  from  TASKTM  to  seconds. 
This  variable  might  not  be  necessary  at  some 
computer  facilities. 

XA  -  An  average  hydraulic  conductivity 

,HCON(I,J)  +  HC0N(I-1,J). 
C  2 

for  preparing  terms  for  the  finite  difference  equation. 
XB  -  A  term  in  the  finite  difference  equation. 

Ax_ -Ax+ 

XC  -  An  average  hydraulic  conductivity 

fHCON(I,J)  +  HC0N(I+1,J). 
(  2 


for  preparing  terms  for  the  finite  difference  equation. 
XDIST  -  Represents  distance  in  x-direction  from  ^-axis . 

YA  -  An  average  hydraulic  conductivity 

(HCON(I,J)  +  HC0N(I,J-1). 

(.  2  ; 

for  preparing  terms  for  the  finite  difference  equation. 
YB  -  A  term  in  the  finite  difference  equation. 

YC  -  An  average  hydraulic  conductivity 

,HCON(I,J)  +  HC0N(I,J+1). 
I  2  ; 

for  preparing  terms  for  the  finite  difference  equation. 
YDIST  -  Represents  distance  in  ^-direction  from  x-axis . 
ZHED  -  Elevation  head  used  in  calculating  total  hydraulic 
head  and  in  setting  the  drained-to-equilibrium 
initial  PHED-array. 


Appendix  B : 

CARRY  —  To  Facilitate  Changing  Finite  Difference  Mesh  Spacing 


Operation  of  such  a  finite  difference 
model  as  STDY2  produces  an  array  of  values  of 
the  dependent  variable,  each  value  being 
associated  with  a  node  of  the  solution  mesh 
superimposed  over  the  region  of  interest. 
The  accuracy  with  which  these  values  repre- 
sent the  true  values  of  the  dependent  vari- 
able at  these  points  depends  in  large  measure 
upon  the  mesh  spacing  chosen  before  running 
the  model. 

After  beginning  or  even  finishing  a 
solution  for  a  particular  mesh  spacing,  one 
may  wish  to  refine  this  spacing  in  part  or 
all  of  the  solution  mesh  and  continue  running 
the  model  for  an  improved  estimate.  The 
results  of  the  previous  run  provide  a  good 
estimated  distribution  from  which  to  start 
the  improvement  run,  but  a  refined  mesh  will 
usually  contain  nodes  at  positions  where 
values  of  the  dependent  variable  have  not 
been  estimated  and  may  eliminate  some  nodes 
of  the  original  mesh.     Considerable  time  and 
effort  would  be  required  to  effect  the 
necessary  changes  by  hand. 

In  terms  of  the  dependent  variable  of 
STDY2,  the  purpose  of  CARRY  is  to  convert  a 
given  PHED-array  into  another  of  different 
mesh  spacing.     Linear  interpolation  provides 
PHED-values  for  nodes  whose  positions  do  not 
correspond  with  those  of  nodes  in  the  original 
mesh. 

Processing  imaginary  rows  and  columns  on 
the  outer  limits  of  the  solution  mesh  is 
unnecessary  and,  for  operational  reasons, 
undesirable  in  CARRY;  but  providing  these 
rows  and  columns  in  CARRY' s  output  deck  is 
necessary  for  later  input  to  STDY2 .  To 
reserve  their  positions  in  the  card  deck  or 
on  magnetic  tape,  a  value  of  0  is  applied  at 
each  imaginary  node  on  the  outer  limits. 

For  economy  of  operation,  such  imaginary 
and  unused  nodes  within  the  solution  mesh  as 
those  within  the  trench  or  notch  of  figures  5 


and  6  are  processed  in  the  same  way  as  all 
other  nodes.     Their  new  values  are  of  no 
consequence  to  STDY2. 

This  appendix  contains  (1)  a  program 
listing,   (2)  a  glossary  of  input  variables, 

(3)  a  glossary  of  noninput  variables,  and 

(4)  a  sample  problem. 

A  program  listing  of  CARRY  follows. 
Modifications  which  might  be  necessary  before 
running  the  program  on  other  computers  are 
flagged.     Their  numbering  and  explanations 
are  the  same  as  for  STDY2,  appendix  A.  In 
general,  the  variables  in  the  DOUBLE 
PRECISION  and  DIMENSION  statements  should 
have  the  same  dimensions  as  in  STDY2.  For 
magnetic  tape  input/output,  it  is  particu- 
larly necessary  that  PHED  and  PHEDN  have  the 
same  dimensions  as  PHED  in  STDY2. 

The  logic  of  this  program  is  straight- 
forward and  is  readily  apparent  from  inspec- 
tion of  the  listing.    Therefore,  a  flow  chart 
is  not  included. 

Glossary  of  input  variables 

Input  variables  are  defined  in  the  order 
of  their  appearance  in  the  input  data  deck. 
Figure  14  shows  punchcard  layouts  for  the 
input  data.     The  manner  of  presentation  is 
the  same  as  in  appendix  A.     As  with  STDY2, 
several  cases  may  be  processed  during  a 
single  computer  run. 

Card  Group  1  -  Five  cards,  even  if  some  are  blank. 
Must  be  in  the  input  deck  for  processing  each  case. 
Format  (20A4) 

COMENT  -  Alphanumeric  identification  printed  at  head 
of  output. 

Card  Group  2  -  A  single  card.    Must  be  present  in 
input  deck  for  processing  each  case.  Format 
(2F10.2.6I5) 

LGTH  -  Same  value  as  variable  of  same  name  in  input 

card  group  2  of  STDY2. 
DEPTH  -  Same  value  as  variable  of  same  name  in  input 

card  group  2  of  STDY2. 

Text  continues  on  page  56. 
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Program  listing 


C      CARRY    -   GIVEN    A    TWO   DIMENSIONAL    ARRAY    OF  VALUES   OF    SOME   QUANTITY   *T  A 


C  GIVEN,    NOT    NECESSARILY    UNIFORM,    GRIC    SPACING,    THIS    PROGRAM  PRODUCES 

C  A    SECONO    ARRAY    OF    THE    SAME    QUANTITY    DISTRIBUTED   OVER   THE    SAME  SIZE 

C  AREA   AS   THE    ORIGINAL    ARRAY,    BUT   WITH    DIFFERENT,    NOT  NECESSARILY 

C  UNIFORM.    GRIO   SPACING.      OLD    AND   NEW   GRID    SPACINGS    ARE  COMPLETELY 

C  INDEPENDENT. 
C 

C  3/18/74. 

C 

c 


C****«   POSSIBLE   MODIFICATICN    TYPE  Ml. 
C 

0001  DOUBLE   PRECISION  PHECI60.70) 

0002  PEAL  LGTH 
C 

C***«*   POSSIBLE    MODIFICATION    TYPE  H3. 
C 

0003  D I  MENS ION  PHEDN(60.70>.OELX(12),DELXN(12),DELY(12),DELYN(12). 
1IX(12),IXN(12).JY(12).JYN(12) ,COMENT( 100) ,DXLGTH< 12) .DXLGTNl 12) , 
2DYLGTH (12) ,DYLGTN( 12) 

C 

C*****   POSSIBLE   MODIFICATION    TYPE  MA 

C 

0004  1    READ   (5,5,END=1S)  CCMENT 
C 

C«»*«*   POSSIBLE    MODIFICATICN    TYPE  M3. 
C 

OCOS  5    FORMAT  (20A4) 

C 

C***«*   POSSIBLE   MODIFICATION    TYPE  MA. 

C 

0006  WRITE    (6,10)  COMENT 

C 

C*»***   POSSIBLE    MODIFICATION    TYPE  M3. 
C 

0CC7 

ooce 

0009 

00  10 

001  1 
0012 
0013 
00  14 
0015 
00  16 

0  0  17 

001  e 

c 

C***    CONVERT    X.Y    COORDINATE    CATA   TO    I    J   COO  RD INATES, ********** 

C 


0C19  NYCRD   =   NC  A  RD Y 

0020  NXCRD   =  NCARDX 

0021  NYC  RON   =  NCRDYN 

0022  NXCRDN   =  NCRDXN 

0023  NCARDY   =    NCARDY  +1 

0024  NCARDX   =   NCAROX    *  1 

0025  NCRDYN   =   NCRDYN    +  1 

0026  NCRDXN   =   NCRDXN    +  1 

0027  DYLGTH( NCARDY)    -  DEPTH 

0028  DYLGTNI NCRDYN)    =  DEPTH 

0029  OXLGTH( NCARDX )    =  LGTH 

0030  DXLGTM  NCROXN )    =  LGTH 

0031  DELY( NCARDY)    =    DELY  <  NC  A  KDY  -  1  ) 

0032  DELX( NCARDX)    =   CELX( NCARDX- 1 ) 

0033  DELYNI NCRDYN)    =   DEL YN ( NCRDYN- 1 ) 

0034  CELXN( NCRDXN)    =   DEL XN ( NCRDXN— 1 ) 

0035  IF    ( t MG TOP. EO. 1 )    GO   TC  40 

0036  jr(  I)   =  1 

0037  JYN(l)    =  1 

0038  GO    TC  45 

0039  40    JY( 1 )    =  2 

0040  JYN ( 1 )    =  2 

0041  45    DO    50   MY    =    2. NCARDY 

0042  IDUM   =    (DYLGTH(MY)    -DYLGTH(  MY- 1  )  )    /   DELY  (  MY— 1  ) 

0043  50  JY(MY)    =    JY(MY-l)    ♦  IOUM 

0044  DO   55   M YN    =   2, NCRDYN 

0045  IDUM   =    (  DYLGTM  KYN  )    -    DYL  GT  N  (  MYN- 1  )  )    /DEL  YN  (  M  YN—  1  ) 

0046  55  JYN(MYN)     =    JYN(MYN-l)     +  IDUM 
C047                     IF    I IMGBOT ,NE . 1 )   GO    TO  60 

0048  JY(NCARDY)    =    JY(NCAROY)    ♦  1 

0049  JYN( NCRDYN)     =    JYN(NCRDYN)     +  1 

0050  60    MROW   =  JY(NCARDY) 

0051  MROWN    =  JYN(NCRDYN) 

0052  IF    ( 1MGLSO ,EQ. 1 )    GO    TO  65 
0  05  3  IX( 1 >    =  1 

CCS  4  I  XN(  1  )     =  1 

0055  GO    TO  70 

0056  65    IX( 1 )    =  2 

0057  1 XN( 1 )    =  2 

0058  70   DO    75   MX   =   2. NCAROX 

0059  IDUM    =    (DXLGTH(Mx)    -   DXLGTHI MX— 1 ) )    /  DELX(MX-l) 

0060  75  IX(MX)    =    IX(MX-l)    +  IDUM 


10    FORMAT    ( 1HI ,20A4/( 20A4 ) ) 

GO    TO  20 
15  STOP 

20    READ    (5,25)    LGTH , DEPTH, IFILE.ITAPE, NCARDY, NCAROX, NCRDYN, NCRDXN 

25  FORMAT  (2F10.2,el5) 

READ  (5.30)IMGT0P.IMGB0T,IMGLSD.IMGRSD 

30   FORMAT  (415) 

READ   <5.35)    ( DYLGTH( MY ) .DEL Y ( MY)  ,  MY  =  1  , NCARDY ) 

35   FORMAT    ( 4 ( F 1 0  .2 ,F 1 0  . 3 )  ) 

READ    (5.35)    (CXLGTH(MX) ,DELX (MX) ,MX=1 , NCARDX) 
READ   (5,35)    (DYLGTN(MYN) , DEL YN ( MYN) »  MYN  =  1 , NCRDYN) 
READ    (5,35)    ( OXLGTN( MXN ) .DELXN ( MXN) , MXN=1 .NCRDXN ) 
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0061  00   80    MxN    =   2 iNCHOXN 

0062  IDUM   =    (DXLGTN(MXN)  - 

0063  80  IXN(MXN)    =  IXN(MXN-l) 

0064  1F{ IMGRSD.NE. 1 )    60   TO  85 

0065  IX(NCARDX)    =    IX(NCAROX)  + 

0066  IXN(NCRDXN)  =  IXN(NCRDXN) 
0C67  85   MCOL   =  IX(NCARDX) 

0068  MCOLN   =  IXN(NCROXN) 


DXLGT  N( MXN— 1  )  )  /  OELXN(MXN-l) 
+  IDUM 


C»»*   PRINT   HEADING   AND    INPUT    DATA.  ********** 

C 

0C69  WRITE  (6.90) 

0070  90   FORMAT    (1H0   3X.4HLGTH   3X.5HDEPTH   3X.5HIFILE    3X . 5H I  TAPE  3X.6HNCARDV 

1    3X.6HNCARDX   3X.6HNCRDYN   3X.6HNCRDXN  ) 
0C71  WRITE    (6.95)    LGTH , DEPTH . I F IL E . IT APE . NYC RD . N XCRO . N YCRDN , NXCRDN 

0C72  95   FORMAT    (IH    2F6.2.I5.I8.4  19) 

0073  WRITE  (6.100) 

0074  100    FORMAT    ( 1  HO . 4H  MCOL .    3X.4HMR0W   3X.5FMC0LN   3X.5HMR0WN  ) 

0075  WRITE    (6.105) MCCL • MRO W . MCOLN . MR OWN 
0C76          105   FORMAT    (1H  14,17.218) 

0C77  WRITE  (6.110) 

0078  110   FORMAT    (1H0   6HIMGT0P   3X.6HIMGB0T   3X.6HIMGLSD    3X.6HIMGRSD  ) 

0079  WRITE    (6.115)  IMGTOP  .  I MGBOT  .  I  MGL  SD  .  IMGRSD 

0080  115   FCRMAT    (1H  14,319) 

0081  WRITE  (6.120) 

0082  120    FORMAT    ( 1  HO    (55HVARI ABLE   MESH    INCREMENT   DATA   FOLLOW    IN   TRIPLETS  AS 

1  XY2  ) / ( 5x . 7 3 HW HERE  X  =  MEASURED  DISTANCE  FROM  AXIS  ( DXLGTH .  DYL 
2GTH,  DXLGTN  OR  DYLGTN )  )/(llX.46HY  =  ROW  OR  COLUMN  NUMBER  (IX.  J 
3Y,  IXN  OR  J  YN  )  )/(llX.50HZ  =  INCREMENT  LENGTH  (DELX,  DELY .  DELXN 
4    OR   DELYN)         )/(13H  OLD   VERTICAL  )) 

0083  WRITE    (6.125)    ( DYLGTH ( K ) . J Y (K ) , DELY ( K ) . K=l . SCARDY  ) 

0084  125   FORMAT    (1H   4 ( F8 . 2 , I  5 . F 8 . 3 . 8X )  ) 
0CS5  WRITE  (6.130) 

C086  130   FORMAT    (1H    15H0LD   HORIZONTAL  ) 

0087  WRITE   ( 6. 125) (DXLGTH(K ) . 1X(K ) ,DELX( K ) .K=l .NCARDX) 

0088  WRITE  (6.135) 

0089  135   FORMAT    (1H    13HNEW    VERTICAL  ) 

0090  WRITE   (6. 125) (DYLGTN (K ).JYN(K) . DELYN ( K ) . K= 1 . NCRDYN ) 

0091  WRITE  (6.140) 

0092  140    FORMAT    (1H    15HNEW   HORIZONTAL  ) 

0093  WRITE    (  6  .  125  )  (DXLGTNIK.)  .  IXN(K  )  .DELXN(  K)  ,K=  1  .  NCRDXN) 
C 

C**»   READ   AND   PRINT   OLD    (INPUT)    ARRAY.  ********** 

C 

0094  IF    (IFILE.EC.O)    GO    TO  150 
C***»*   POSSIBLE   MODIFICATION    TYPE  MS. 

0095  DO    145    ICT  =  l.IFILE 

0096  145  RE  AD ( 9 )  PHED 

0097  GO   TO  160 

0098  150  READ   (5.155)    ( { PHED ( I . J )  .  1  =  1 . MCOL ) . J= 1 . MROW ) 

0099  155   FORMAT  (6D13.6) 

0100  160    WRITE  (6.165) 

0101  165   FORMAT    (1H0   49X.23H0LD   PRESSURE   HEAD   ARRAY  ) 

0102  DO    170   J   =  1.MR0W 

0103  170  WRITE    (6.175)    J . ( PHEO ( I . J ) . 1= 1 . MCOL ) 

0104  175  FORMAT    (1H    I  3 , 2 X . 1 001 2 . 5/( 6 X . 1 00 1 2 . 5 ) ) 

0105  DO    180   J   =  l.MROW 

0106  180  PHED ( MCOL  +  1  .  J )    =  0. 

0107  DO    185    I   =    1. MCOLN 

0108  185  PHEDN{ I .MROW+1 )    =  0. 


C***    SWFEP   ROWS.    INTERPOLATING   NEW   COLUMNS   OR   COPYING   OR   DELETING  OLD 


0109 
01  1  0 
Oil  1 
0112 
0113 
0114 
0115 
0116 

011  7 
01  1  8 
0119 
0120 

012  1 
0122 
0123 
0  124 
0125 
0126 
0127 

0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 


COLUMNS   AS    REQUIRED.  ********** 


IF  ( IMGTOP. EO.l )  GO  TO 
UK  =  1 


190 


GO   TO  195 
190    UK    =  2 

195   DO   230    J   =  IJK.KROW 
MX   =  1 
I  DUMA    =  2 
MXN    =  1 
IDUM   =  2 

IF    ( I MGLSD.EO. 1 )   GO    TO  200 

I    =  1 

IN    =  1 

GO   TO  205 
200         I    =  2 

IN   =  2 
205        XPOSA   =  0. 

XPOSN   =  0. 

XPCSB   =  XPOSA 
210        PHEDNI IN. J)  = 
1  (PHED(Itl.J) 

IN  =   IN"  +  1 

IF    ( IN.LE. IXN( IDUM) )    GO   TO  215 
MXN    =    MXN    *  1 
IDUM    =    MXN   +  1 

IF    ( MXN.GE .KCROXN)    GO    TO  230 
215        XPOSN   =    XPOSN   +  DELXMMXN) 

IXPOSB   =    (XPOSB   +    .000005)    *  10000 
IXPOSN    =    (XPOSN   +    .000005)    *  10000 
IF    ( IXPOSN. LT. IXPOSB)    GO   TO  210 
220  1=1+1 


+    DELX ( 1 ) 
PHED (I.J)  + 
-   PHED ( I.J)) 


((XPOSN   -   XPOSA)    /    (XPOSB   -    XPOSA))  * 
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oi3e 

0139 
0140 
0  14  1 
0142 
0143 
0144 
0145 
0  1  46 


IF    (  l  .<_  T.  I  x  (  I  CLWA  )  )    GO   TO  225 
MX   =   MX    +  1 
I  DUMA    —    MX    +  1 
XPOSA    =  XPOSB 
XPOSB   =    XPOSB    ♦  OELX(MX) 
IXPOSB    =    (XPOSB   +    .000005)    *  10000 
IF    ( I XPOSN. GE . I XPOSB )    GO   TO  220 
GO  TO  210 
CONTINUE 


C«**    SWEEP   COLUMNS    INTERPOLATING   NEK   ROWS   OR   COPYING   OR   DELETING  OLD 


0147 
0148 
0149 
0150 
0151 
0152 
0  IE  3 
0154 
0155 
0156 
0157 
0  156 
0159 
0160 
0161 
0162 
0163 
0  164 
016  5 
0166 


ROWS   AS  REQUIRED.********** 

IF    ( IMGLSD.EQ.l )    GO   TO  235 
UK   =  1 
K   =  MCOLN 
GO   TO  240 
235    UK    =  2 

240   DO   275    I    =    UK, MCOLN 
MY   =  1 
I  DUMA   =  2 
MYN   =  1 
IOUM   =  2 

IF    I IMGTOP.EO.l >    GO   TO  245 
J   =  1 
JN    =  1 
GO   TO  250 
245        J   =  2 


250 


JN   =  2 
YPOSA  = 
YPOSN  = 
YPOSB 


0. 
0. 

YPOSA   +    DELY  <  t  ) 
PHED(I,JN)    =    PHEDNd.J)    +    ((YPOSN   -  YPOSA) 
(  PHEDN(  I  ,  J+l  )    -  PI-EDN(I.J)> 


YPOSA))  * 


C***  SET  IMAGINARY  NODESi 
C  **********. 


IF    ANY.    ON   OUTERMOST   ROWS   AND   COLUMNS    TO  ZERO. 


0  167  JN  =   JN   ♦  1 

0168  IF    ( JN.LE.JYN(IOUM) )    GO   TO  260 

0169  MYN  =   MYN   +  1 

0170  IDUM   =    MYN   +  1 

0171  IF    (MYN.GE. NCRDYN)    GO    TO  275 

0172  260        YPOSN   =   YPOSN    *•  DELYN(MYN) 

0173  IYPOSB    =    ( YPOSB   ♦    .000005)    *  10000 

0174  IYPOSN   =    (YPOSN   +    .000005)    *  10000 

0175  IF    ( IYPOSN. LT. IYPOSB )    GO   TO  255 

0176  265        J   =   J  +  1 

0177  IF    < J .LT. JY ( I  DUMA >  >    GO   TO  270 

0178  MY   =   MY   ♦  1 

0179  I DUMA   =   MY    +  1 

0180  270        YPOSA    =  YPOSB 

0131  YPOSB   =   YPOSB   ♦   DELY ( MY ) 

0182  IYPOSB   =    (YFOSB   +    .000005)    *  10000 

0183  IF    ( IYPOSN. GE.IYPOSE)    GO   TO  265 

0184  GO   TO  255 

0185  275  CONTINUE 

0186  IF    ( I MGRSD. NE . 1 )    GO   TO  285 

0187  DO    280    J   =  l.MROWN 

0188  280        PHED ( MCOLN ,  J )    =  0. 

0189  285    IF    ( IMGBOT.NE .1 )   GO   TO  295 

0190  DO   290    I    =  l.WCCLN 

0191  290        PHED( I .MRCWN)    =  0. 

0192  295    IF    ( I MGLSD.NE .1 )    GO   TO  305 

0193  DO   300    J   =  l.WRCWN 

0194  300        PHED(l.J)    =  0. 

0195  305    IF    ( IMGT0P.NE.1 )    GO   TO  315 

0196  DO   310    I    =  l.MCCLN 

0197  310        PHED(I.l)    =  0. 
C 

C***   PRINT    AND    PUNCH    (OR    WRITE   ON   TAPE)    THE   NEW    (OUTPUT)  ARRAY.********* 

C 

0198  315   WRITE  (6,320) 

0199  320   FORMAT    (1H0   49X.23HNEW    PRESSURE   HEAD   ARRAY  ) 

0200  DO    325   J   =  l.MROWN 

0201  32S  WRITE    (6.175)    J . IPHED ( I . J ) , 1= 1 , MC OLN ) 

0202  IF    (ITAPE.EO.O)    GO   TO  335 
C 

C***»*   POSSIBLE   MODIFICATION    TYPE  MS. 

C 

0203  WRITE   (10)  PHED 

0204  WRITE  (6,330) 

0205  330   FORMAT    (1H0    13HTAPE    WRITTEN.  ) 

0206  GO  TO  1 


C***«*   POSSIBLE   MODIFICATION    TYPE  M4. 
C 

0207  335    WRITE    (7.155)    ( < PHEO < I . J ) . I = 1 . MCOLN ) . J= 1 . MROWN ) 

0208  WR ITE    ( 7. 340 ) 

0209  340   FORMAT    (16H*****END   OF   FILE  ) 

0210  WRITE  (6,345) 

0211  345   FORMAT    (1H0    14HCARDS   PUNCHED.  ) 

0212  GO   TO  1 

0213  END 
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IFILE  =  0  when  input  array  is  in  card  form  and  output 
array  is  in  card  form. 
>  0  when  input  is  read  from  tape  and  output  is 
written  on  tape.    The  value  indicates  the  posi- 
tion of  the  input  file  on  a  multifile  tape.  See 
explanation  of  same  variable  in  STDY2,  card  group 
1,  for  instructions  regarding  determination  of 
position. 
ITAPE  =  0  when  output  is  on  cards. 

^  0  when  output  is  on  tape. 
NCARDY  -  Same  value  as  variable  of  same  name  in  card 

group  3  of  STDY2. 
NCARDX  -  Same  value  as  variable  of  same  name  in  card 

group  3  of  STDY2. 
NCRDYN  -  The  number  of  DYLGTN-DELYN  pairs  in  card 

group  6  of  this  program. 
NCRDXN  -  The  number  of  DXLGTN-DELXN  pairs  in  card 
group  7  of  this  program. 

Card  Group  3  -  A  single  card.    Must  be  present  in 

input  deck  for  processing  each  case.  Format  (415) 
IMGTOP  -  Same  value  as  variable  of  same  name  in  input 

card  group  2  of  STDY2. 
IMGBOT  -  Same  value  as  variable  of  same  name  in  input 

card  group  2  of  STDY2. 
IMGLSD  -  Same  value  as  variable  of  same  name  in  input 

card  group  2  of  STDY2. 
IMGRSD  -  Same  value  as  variable  of  same  name  in  input 

card  group  2  of  STDY2 . 

Card  Group  4  -  One  to  three  cards  depending  on  the 
number  of  changes  of  by  in  the  old  (input) 
solution  mesh.    Must  be  present  in  input  deck  for 
processing  each  case.     Format  (4 (F10. 2 ,F10 . 3) ) 
For  a  given  case,  this  card  group  is  identical  both 
in  variable  names  and  in  values  to  card  group  9 
of  the  input  deck  for  STDY2. 

Card  Group  5  -  One  to  three  cards  depending  on  the 
number  of  changes  in  Ax  in  the  old  (input) 
solution  mesh.    Must  be  present  in  input  deck  for 
processing  each  case.    Format  (4 (F10. 2,F10. 3) ) 
For  a  given  case,  this  card  group  is  identical  both 
in  variable  names  and  in  values  to  card  group  10 
of  the  input  deck  for  STDY2 . 

Card  Group  6  -  One  to  three  cards  depending  on  the 
number  of  changes  in  by  in  the  new  (output)  solu- 
tion mesh.    Must  be  present  in  input  deck  for 
processing  each  case.    Format  (4 (F10. 2,F10 . 3) ) — 
four  pairs  of  the  following  variables  per  card — 
unneeded  fields  in  the  last  card  may  be  blank. 

DYLGTN(MYN)  -  The  distance  from  the  x-axis  to  the 
MYNth  boundary  between  regions  of  different  by  in 
the  new  (output)  solution  mesh. 

DELYN(MYN)  -  The  MYNth  value  of  by  in  the  new  (output) 
mesh . 

NOTE:   When  the  new  (output)  deck  has  been  obtained 
from  CARRY,  this  card  group  may  be  substituted 
directly  into  STDY2's  input  deck  as  card  group  9. 
The  values  in  the  cards  are  then  equated  to 
DYLGTH (MY)  and  DELY(MY) . 

Card  Group  7  -  One  to  three  cards  depending  on  the 
number  of  changes  in  Ax  in  the  new  (output)  solu- 
tion mesh.    Must  be  present  in  input  deck  for 
processing  each  case.    Format  (4 (F10. 2.F10. 3)) — 
four  pairs  of  the  following  variables  per  card — 
unneeded  fields  in  the  last  card  may  be  blank. 

DXLGTN  (MXN)  -  The  distance  from  the  y-axi.3  to  the 
MXNth  boundary  between  regions  of  different  Ax 
in  the  new  (output)  solution  mesh. 

DELXN(MXN)  -  The  MXNth  value  of  Ax  in  the  new  (output) 
mesh. 

NOTE:    When  the  new  (output)  deck  has  been  obtained 
from  CARRY,  this  card  group  may  be  substituted 
directly  into  STDY2's  input  deck  as  card  group 
10.    The  values  in  the  cards  are  then  equated  to 
DXLGTH(MX)  and  DELX(MX). 


Card  Group  8  -  Group  of  several  cards,  the  number 
being  dependent  upon  the  number  of  nodes  in  the 
solution  mesh.    When  magnetic  tape  is  used  for 
input,  there  is  no  card  group  8.    Format  (6D13.6) — 
six  values  of  the  following  variable  per  card — 
unneeded  fields  in  the  last  card  may  be  blank. 
PHED(I.J)  -  The  value  of  pressure  head  at  the  node  at 
the  intersection  of  the  Ith  column  and  Jth  row  of 
the  old  (input)  mesh. 
See  PHEDN(I,J)  in  glossary  of  noninput  variables 
for  use  of  PHED-array  after  input  is  complete. 
NOTE:  When  magnetic  tape  is  used  for  input/output, 
be  sure  that  PHED(I.J)  and  PHEDN(I.J)  in  CARRY 
are  dimensioned  exactly  as  PHED(I,J)  is  in  STDY2. 
When  punch  cards  are  used,  PHED(I.J)  and  PHEDN(I.J) 
must  have  dimensions  at  least  as  large  as  those 
needed  for  the  new  (output)  mesh.  Dimensioning 
is  specified  in  the  DOUBLE  PRECISION  and 
DIMENSION  statements. 

Glossary  of  noninput  variables 

I  -  Column  number,   I,  in  the  solution  mesh. 

ICT  -  Counter  used  in  reading  restart  tape.  Enables 

program  to  skip  over  unwanted  files  of  data  on  a 

tape  produced  by  a  multicase  run. 
TDUM  -  Dummy  variable;  represents  other  variables 

where  the  latter,  because  of  subscripting  or 

because  they  are  of  the  REAL  type,  cannot  be  used. 
IDUMA  -  Dummy  variable  used  in  same  way  as  TDUM. 
IJK  -  Dummy  variable  representing  the  I-  or  J-value 

with  which  to  start  a  DO  loop. 
IN  -  Index  variable  used  in  place  of  I  to  represent 

column  position  when  setting  up  the  output  array. 
IX (MX)  -  The  I-value  of  the  MXth  column  in  the  old 

(input)  mesh  at  which  Ax  changes  in  value. 
IXN(MXN)  -  The  I-value  of  the  MXNth  column  in  the  new 

(output)  mesh  at  which  Ax  changes  in  value. 
IXPOSB,  LXPOSN  -  Integer  representations  of  XPOSB  and 

XPOSN  after  adding  .000001  and  multiplying  by 

10,000.     Necessary  for  comparing  equality  because 

real  number  comparisons  are  not  reliable. 
IYPOSB,  IYP0SN  -  Integer  representations  of  YP0SB  and 

YPOSN.     See  IXPOSB  and  IXPOSN. 
J  -  Row  number,  j,  in  the  solution  mesh. 
JN  -  Index  variable  used  in  place  of  J  to  represent 

row  position  when  setting  up  the  output  array. 
JY(MY)  -  The  J-value  of  the  MYth  row  in  the  old 

(input)  mesh  at  which  by  changes  in  value. 
JYN(MYN)  -  The  J-value  of  the  MYNth  row  in  the  new 

(output)  mesh  at  which  Ly  changes  in  value. 
K  -  A  DO  loop  index. 

MCOL  -  The  number  of  columns,  including  imaginary 

columns,  in  the  old  (input)  solution  mesh. 
MCOLN  -  The  number  of  columns,  including  imaginary 

columns,  in  the  new  (output)  solution  mesh. 
MROW  -  The  number  of  rows,  including  imaginary  rows, 

in  the  old  (input)  solution  mesh. 
MROWN  -  The  number  of  rows,  including  imaginary  rows, 

in  the  new  (output)  solution  mesh. 
NXCRD  -  Storage  variable  representing  the  input 

variable  NCARDX  (card  group  2) . 
NXCRDN  -  Storage  variable  representing  the  input 

variable  NCRDXN  (card  group  2) . 
NYCRD  -  Storage  variable  representing  the  input 

variable  NCARDY  (card  group  2). 
NYCRDN  -  Storage  variable  representing  the  input 

variable  NCRDYN  (card  group  2) . 
PHEDN(I.J) — The  value  of  pressure  head  at  the  (I,J)th 
node  in  an  intermediate  mesh.     Each  row  of 
PHED(I.J)  is  swept  from  left  to  right  so  that 
PHED-values  at  nodes  at  common  distances  from  the 
left  boundary  are  copied  into  PHEDN.     Values  at 
inserted  nodes  are  interpolated  linearly  and  also 
entered  into  PHEDN  at  the  proper  distance  from 
the  left  boundary.     When  all  rows  are  swept, 
PHEDN  contains  an  array  with  the  number  of  columns 
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to  be  contained  in  the  output  array  but  with  the 
number  of  rows  contained  in  the  input  array. 
The  columns  in  PHEDN  are  then  swept  from  top  to 
bottom,  reading  values  at  common  distances  from 
the  top  back  into  PHED  and  interpolating  values 
for  inserted  nodes.     When  column  sweeping  is 
finished,  PHED  contains  the  output  array  with  the 
desired  number  of  columns  and  rows. 
XPOSA,  XPOSN,  XPOSB  -  Distances  from  the  y-axis. 
A  node  in  the  new  array  (PHEDN)  with  coordinates 
(IN, J)  may  fall  between  two  nodes  in  the  old 
(input)  array  with  coordinates  (I, J)  and  (I+l.J). 
XPOSA  gives  the  distance  to  (I, J) 
XPOSN  gives  the  distance  to  (IN, J) 
XPOSB  gives  the  distance  to  (I+l.J) 
These  form  the  basis  for  interpolating  PHEDN(IN.J) 
between  PHED(I.J)  and  PHED(I+1,J). 
YPOSA,  YPOSN,  YPOSB  -  Distances  from  the  x-axis. 
See  XPOSA,  XPOSN,  XPOSB  description. 

YPOSA  gives  the  distance  to  (I, J) 
YPOSN  gives  the  distance  to  (I,JN) 
YPOSB  gives  the  distance  to  (I.J+l) 
These  form  the  basis  for  interpolating  PHED(I.JN) 
between  PHEDN(I.J)  and  PHEDN(I, J+l) . 

Sample  problem 

Figure  15  shows  the  cross  section  of 
figure  4  with  a  superimposed  uniform  mesh  of 
1-cm  spacing.     Figure  16  shows  sample  data 


for  converting  the  PHED-array  yielded  by  a 
STDY2  solution  for  that  spacing  to  an  array 
with  the  mesh  spacing  of  figures  8  and  9. 
Figure  17  shows  the  printout  for  the  sample 
run,  including  the  new  array  of  PHED-values. 

Discussion  of  the  STDY2  sample  problem  in 
the  text  noted  that  node  (2,2)  seemed  to 
converge  most  slowly.    Taking  its  converged 
value,  -23.407  cm,  as  an  index  of  comparison, 
the  STDY2  sample  problem  converged  to  within 
99  percent  of  that  value  in  about  80  iter- 
ations with  to  =  1.60.     Conceivably,  an 
investigator  might  have  approached  the  septic 
tank  problem  first  with  the  coarser  mesh  and 
then  might  have  wanted  to  refine  it.  Instead 
of  starting  anew,  as  in  the  STDY2  sample 
problem,  the  converged  PHED-array  for  the 
coarser  mesh  might  have  been  used  as  the 
basis  of  the  initial  guess  for  the  refined 
mesh.    The  data  for  the  CARRY  printout  were 
given  STDY2  in  the  form  of  a  restart  deck, 
and  convergence  to  the  same  solution  as  that 
achieved  in  the  STDY2  sample  problem  was 
reached  in  45  iterations,  a  saving  of  about 
43  percent. 


i   =  I 


8 


I 

2 
3 
4 
5 
6 
7 


®     ®     ®     ®     ®     ®  ® 


® 
® 
® 


® 


8  ® 
9 


®     ®     ®  B 

a  a  a  a 


a  a  a  a  a  a  a 


Scale  o" 


c  m 


® 
® 
® 
® 
® 
® 
® 


Legend:  •  Calculation  Node 
®  Imaginary  Node 
E  h-Specified  Boundary  Node 

Figure  15. — Uniform  1-cm  mesh  superimposed  on  cross  section  of  figure  4. 
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Figure  16. — Input  data  for  CARRY  sample  problem. 
DATA  SHEET      CARRY   Date   3/74   Page  _1_  of  _3_ 


Cate    Small-Scale  Septic  Tank   Maae 


Card  Grp  1 

Variable 

COMENT 

Format 

(20A4) 

Value  Cd  1 

CARRY- 

CONVERTS 

G  SMALL-S 

SALE  SEPT 

IC  TANK  ( 

5  x  7  CM) 

RESTART 

Cd  2 

OLD:  DB 

LTA  X  ■=  r 

ELTA  Y  ■= 

1  CM 

Cd  3 

NEW:  FJ 

NE  MESH  S 

IZE  NEAR 

*JOTCH 

Cd  4 

BLANK 

Cd  5 

BLANK 

Card  Grp  2 

Variable 

LGTH 

DEPTH 

IFILE 

ITAPE 

NCARDY 

NCARDX 

NCRDYN 

NCRDXN 

Format 

F10.2 

F10.2 

15 

15 

Value 

6.00 

7.00 

0 

0 

1 

1 

3 

3 

Card  Grp  3 

Variable 

LMGTOP 

IMGBOT 

LMGLSD 

LMGRSD 

Format 

15 

15  . 

Value 

1 

0 

1 

1 

DATA  SHEET      CARRY   Date     3/74   Page  2       of  3 


Case      Small-Scale  Septic  Tank   Naae 


Card  Grp  4 

Variable 

DYLGTH 

DELY 

DYLGTH 

DELY 

DYLGTH 

DFJ.Y 

TIYT.GTH 

DRTY 

Format 

F10.2 

F10.3 

F10.2 

F10.3 

F10.2 

F10.3 

F10.2 

F10.3 

Value 

0.00 

1.000 

Card  Grp  5 

Variable 

DXLGTH 

DELX 

DXLGTH 

DELX 

DXLGTH 

DELX 

DXLGTH 

DELX 

Format 

F10.2 

F10.3 

F10.2 

F10.3 

F10.2 

F10.3 

F10.2 

F10.3 

Value 

0.00 

1.000 

Card  Grp  6 

Variable 

DYLGTN 

DELYN 

DYLGTN 

DELYN 

DYLGTN 

DELYN 

DYLGTN 

DELYN 

Format 

F10.2 

F10.3 

F10.2 

F10.3 

F10.2 

F10.3 

F10.2 

F10.3 

Value 

0.00 

1.000 

1.00 

0.500 

5.00 

1.000 

Card  Grp  7 

Variable 

DXLGTN 

DELXN 

DXLGTN 

DELXN 

DXLGTN 

DELXN 

DXLGTN 

DELXN 

Format 

F10.2 

F10.3 

F10.2 

F10.3 

F10.2 

F10.3 

F10.2 

F10.3 

Value 

0.00 

1.000 

2.00 

0.500 

5.00 

1.000 
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DATA  SHEET  CARRY  

Case       Small-Scale  Septic  Tank 


Date  3/74 


Nan* 


Page  _3_  of  _3 


Card  Grp  8 

Variable 

PHED 

PHED 

PHED 

PHED 

PHED 

PHED 

Format 

D13.6 

D13.6 

Value 

USE  REST 

ART  DECK 

PRODUCED 

BY  STDY2 

SUN 

Figure  16. — Continued. 


CARRY    -    CONVERTING    SMALL    SCALE    SEPTIC    TANK     16X7    CM)  RESTART 
OLO:    CELTA    X   =   DELTA   Y   =    1  CM 
NE»:       FINE    MESH    SIZE    NEAR  NOTCH 


LGTH  DEPTH  IFILE  I  TAPE 
6.00  7.00  0  0 


VARIABLE    MESH    INCREMENT    DATA    FOLLO  W    IN    TRIPLETS    AS  XYZ 

WHERE    X    =    MEASURED    DISTANCE    FROM    AXIS    (DXLGTH.    DYLGTH,    DXLGTN    OR  DYLGTN) 
Y    =    RCW    OR    COLUMN    NUMBER    (IX.    JY.     IXN    OR  JYN) 
Z    =    INCREMENT   LENGTH   ( DEL  X .   OELY.    DEL  XN   OR   DELYN ) 
OLD  VERTICAL 

0.0  2         1.000  7.00  9  1.000 

OLD  HORIZONTAL 

0.0  2         1.000  6.00  9  1.000 

NEW  VERTICAL 

0.0  2        1.000  1.00  3        0.500  S. 00         11         1.000  7.00         13  1.000 

NEW  HORIZONTAL 

0.0  2         1.000  2.00  A        0.500  5.00         10         1.000  6.00         12  1.000 

OLD   PRESSURE    HEAD  ARRAY 

1  -C80000D+01-C2711  00+0  2- 0.271  04D+  02-0.2  70  64  D  +  0  2-0.  2682 7D+0  2-0.  25  49  20  +  0  2-0.  24  24  8D+0  2-0.  23775D+  02-0.  800  0  00+01 

2  -0.700000+01-0. 2608  20+02- 0. 26  0  5 3D+ 0  2-0. 259 2 20+0  2- 0. 255 1 20 +0 2- 0 . 244 960+ 0 2-0 . 2 352 80  +  0 2-0 . 23 1 4 9D  + 02-0  • 70  0  0  00+0 1 

3  -C60000D+01-0.2511  00+0  2-0  .25  1  0  4D  +  02-0  .  250  6  4D  +  0  2- 0  .  24  82  70  +  0  2-  0  .  2  34  9  20  ♦  02-0  .  22  24  80  +  0  2- 0  .  2  1  7  7  50  +  02- 0  .  60  0  0  00  +  0  1 

4  -  C.  5  OC  0  00*0  1-0. 2414  80+02-0.  24  1  8  70  *  02  -  0  .  24  3  9  50+ 0  2  -  0  .  2  5  288D +0  2-0.  22  4620  +  0  2-0.  20  26  5D  +  0  2- 0.1951  00+0  2-0.  50  OOOD +  01 

5  -0. 400000  +  01 -0.231100+ 0  2-0. 23 1 040 +0 2- 0 . 2 3 0 6 4 D+ 0 2- 0 . 300  0 OD  +  0 2- 0 . 2 1  03 80+  02 -0. 1 7 0400 +0 2-0.1 59 1SD  +  02- 0.40000 0  +  0  1 

6  -C.3000  0D+01-0. 300  000+02-0.300  0  00  +  0  2-0.30  0  000  +  0  2-0 . 300000 +0  2-0. 1622 80  +  02- 0.12 04 1D  +  0 2- 0.1101 60+02-0. 3000 OD +  01 

7  -0.20000D  +  01-0. 1166 5D+02-0.116030  +  02-0. 113360+02- 0.1 0487D +02- 0 . 78 1 470+ 0 1 -0 . 65 1 8 10  +  0 1-0.  61 4440+ 01-0. 20 OOOD +0  1 

8  - C. 10  00  00+01-0.397350+01-0.394670+0 1-0 .38398D  +  0 1-0. 3566 10 +0 1 -0 . 303 56D+ 0 1 -  0 . 27 20  10  +  0  I - 0 . 262 040+ 0 1 -  0 .  100  00D  +  01 

9  CO  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0 

NEW    PRESSURE    HEAD  ARRAY 

1  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0  0.0 
CO  0.0 

2  0.0  -0.26  08  20+0  2- 0. 2  6 C53D+ 02-0. 2S9  22D+ 02-0 . 2571 70  +  0  2-0 . 255 1 20  +  0  2-0.250  0  40  +  0  2-0 . 24496D+ 02- 0 .  24 0 1  2D ♦ 0 2-0 . 2 35280+ 02 
-0.231490+02  0.0 

3  0.0  -0.2511  OD+0  2-0. 25 1 04D+  02-0. 2  5  06 3D+02-0 . 24945D+0 2 -0 . 2482 70  +  0 2-0 .241590+02-0. 234  9  20  +  0  2- 0. 22870O+02- 0.22248D+ 02 
-0.217750+02  0.0 

4  0.0  -0  .246 29D+ 02-0. 24646D+02-0. 24 7290+02- 0.24894D+0 2-0. 250 S80+ 02-0. 24 01 70  +  0 2-0. 229 77D+ 02- 0.221  1 70 ♦ 02- 0 . 2 1 2 S6D+ 02 
-0.206430+02  0.0 

5  CO  -0 .24 14  80  +  02- 0. 24 1 8  7O  +  0  2-0 . 24 3  950+ 02- 0 . 24 84 2D +  0 2-0 • 252 88D+ 02- 0 . 23  37  5D  +  0  2-0 .224620  +  0 2- 0.2 13640 +0  2-0 .2026  50  +  02 
-0.  195100+02  0.0 

6  0.0  -0 .236290+02- 0. 236460+02-0. 2 37 290+ 02- 0 . 2 568 70 + 02- 0 . 2 764 40+02 -0 . 2469 7D+0 2 -0 .2 17500+02- 0.2020 10 +02-0. 186 520+ 02 
-0.177  130  +  02   0  .0 

7  0.0  -0.2311 00+0  2- 0.231 040+0  2- 0. 23 06 30+ 0 2- 0 . 26 E 22 D+ 02  - 0 .3 0 000 D  +  0 2-0 . 2551 90  +  0 2-0. 21 038D  + 02-0.  19039D+0 2- 0.1 704 00+02 
-0.15915D+02  0.0 

8  CO  -0  .265550  +  0  2-0.26  5  5  20+02-0.265  3  20  +  0  2-0.  2  6  26  60 +  0  2-  C  .  3  C  0  0  0D  + 0  2-0  .  24  3  1  7D+ 02- 0  .  1  86  3  30  +  02- 0  .  1  6  5870  +  02- 0  •  1  45  40D  +  0  2 
-0.13465O+02  0.0 

9  0.0  -0. 300 0  00+02-0 .30  0  000 +0  2-0. 3  00 C OD+0  2-0. 300000+02-0. 3000 OD+02-0. 23 1 1 40+02-0. 16228D+02-0.14I34D+02-0.12041D+02 
-0. 1 I016D+02  0.0 

10  0.0  -0.20 83  20  +  0  2-0 . 20 80 10  + 02-0. 2 06680  +  0  2- 0 . 20 4 560 +02- 0 . 2  02430+ 02- 0 .  1613  2O  +  0  2-0.12  021D  +  02-0.106  50O  +  02-0. 92  7  970+0  I 
-0.e5800D+01  0.0 

11  CC  -0.  1166  50+02-0.  11  6030+02-0.  11  3360  +  0  2-0.  I  09  11  0  +  02-0.1  04870  ♦  02- 0  .  9  1  5060  +  0  1  -  0  .  78  1  4  70+01-0.  71  6640+01-0.  651  81  D+ 01 
-C61444D+01  0.0 

12  CO  -0.  39735P+01-0. 394670+0 1-0. 38398 C+0 1-0 .370 30D+0 1-0.  3  566  10  +  0  1-0.  3  30  090  ♦  0 1  -  0  .  303  56D+  0  1  -0  .  287790+  0  1  -0  .  272  0  1  D  +  0  1 
-0.26204D+01  0.0 

13  CO  0.0  0.0  0.0  0*0  0.0  0.0  0.0  0.0  0.0 

CO  CO 


CARDS  PUNCHED. 


Figure  17. — Printout  of  CARRY  sample  problem. 
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Appendix  C : 

COMPAR  —  For  Comparing  Two-Dimensional  Data  Arrays 


This  program  was  developed  specifically 
for  comparing  PHED-arrays  obtained  from 
program  STDY2.    But  it  can  be  used  for 
comparing  any  pair  of  two-dimensional  data 
arrays,  provided  they  have  the  same  numbers 
of  rows  and  columns. 

STDY2  iteratively  solves  a  system  of 
finite  difference  equations  to  change  an 
arbitrary  array  of  PHED-values  to  one  that 
satisfies  some  particular  set  of  boundary 
conditions.    This  solution  array  is 
approached  asymptotically,  so  that  one  may 
decide  that  a  solution  is  acceptable  if,  at 
each  node  in  the  solution  mesh,  PHED-values 
from  successive  iterations  do  not  differ  by 
more  than  some  small  amount. 

COMPAR  receives  two  PHED-arrays  as  input. 
At  each  node  of  the  solution  mesh,  it  obtains 
the  ratio  of  the  difference  in  the  two  PHED- 
values  to  the  value  of  one  of  them.     If  the 
absolute  value  of  this  ratio  is  larger  than  a 
value  specified  by  the  user,  information  is 
printed  that  identifies  the  location  of  the 
node  and  gives  the  two  PHED-values  and  the 
ratio. 

A  program  listing  of  COMPAR  is  given 
below.    Modifications  that  might  be  necessary 
before  running  the  program  on  other  computers 
are  flagged.     Their  numbering  and  explana- 
tions are  the  same  as  for  STDY2,  appendix  A. 
For  magnetic  tape  input,  PHED1(I,J)  and 
PHED2(I,J)  must  be  given  the  same  dimensions 
as  PHED(I,J)  in  STDY2.     This  dimensioning  is 
done  by  means  of  the  DOUBLE  PRECISION 
statement  in  COMPAR. 

The  logic  of  this  program  is  straight- 
forward and  is  readily  deduced  from  inspec- 
tion of  the  listing.    No  flow  chart  is  given. 

A  user  may  compare  more  than  one  pair  of 
arrays  in  one  COMPAR  run  by  simply  submitting 
an  input  data  deck  for  each  case  compared. 

Glossary  of  input  variables 

Input  variables  are  defined  in  the  order 
of  their  appearance  in  the  input  data  deck. 
Figure  18  shows  punchcard  layouts  for  these 
data.     The  manner  of  presentation  is  the  same 
as  in  appendix  A. 

Card  Group  1  -  Five  cards,  even  if  some  are  blank. 
Must  be  in  the  input  deck  for  processing  each  case. 
Format  (20AA) 

COME NT  -  Alphanumeric  identification  printed  at  head 
of  output. 

Card  Group  2  -  A  single  card.    Must  be  present  in 
input  deck  for  processing  each  case.  Format 
(D13.6.3I5) 

DLIMIT  -  If  RATIO  (defined  in  the  glossary  of  noninput 
variables)  exceeds  the  value  given  for  DLIMIT,  a 


line  of  printout  identifies  the  offending  node. 
Because  the  main  purpose  of  COMPAR  is  convergence 
checking,  one  usually  selects  as  a  value  for  DLIMIT 
the  maximum  value  of  RATIO  he  is  willing  to  accept 
in  what  he  considers  a  converged  solution. 
MROW  -  The  number  of  rows  in  the  solution  mesh.  This 
value  is  obtained  from  the  printout  of  the  STDY2 
case  producing  the  arrays  compared. 
MCOL  -  The  number  of  columns  in  the  solution  mesh. 
This  value  is  obtained  from  the  printout  of  the 
STDY2  case  producing  the  arrays  compared. 
IFLLE  =  0  if  input  array  is  in  card  form. 

>  0  if  input  is  read  from  tape.    The  value  is  the 
position  of  the  input  file  on  a  multifile  tape. 
See  explanation  of  same  variable  in  STDY2, 
glossary  of  input  variables,  card  group  1.  This 
program  reads  two  files  at  once,  however,  so  that 
the  definition  of  R  and  S  in  the  equation  TFILE  = 
R  -  S  must  be  modified: 

R  =  the  number  representing  the  position  of  the 

PHED1  file  on  the  tape 
S  =  the  number  representing  the  position  on  the 
tape  of  the  second  file  (PHED2)  read  in  by 
the  preceding  case  of  the  same  run  (has 
the  value  zero  for  the  first  case  of  the 
run) 

Card  Group  3  -  A  multiple  card  group  produced  by  a 
STDY2  run.     If  STDY2  wrote  magnetic  tape,  there  is 
no  card  group  3.     Format  (6D13.6) — six  values  of 
the  following  variable  per  card — unneeded  fields  in 
the  last  card  may  be  left  blank. 

PHED1(I,J)  -  The  pressure  head  value  at  node  (I, J)  of 
the  solution  mesh.     See  PHED2(I,J),  card  group  4. 

Card  Group  4  -  A  multiple  card  group  produced  by  a 
STDY2  run.     If  STDY2  wrote  magnetic  tape,  there  is 
nr  card  group  4.     Format  (6D13.6) — six  values  of 
the  following  variable  per  card — unneeded  fields  in 
the  last  card  may  be  blank. 
PHED2(I,J)  -  The  pressure  head  value  at  node  (I, J)  of 
the  solution  mesh.     The  arrays  containing  PHED1 
and  PHED2  are  obtained  from  STDY2  one  or  more 
iterations  apart.    Through  the  use  of  IDBLE, 
STDY2  card  group  3,  these  arrays  are  15  iter- 
ations apart.    When  using  cards,  however,  the 
user  may  restart  a  case  and  obtain  PHED2  after 
any  number  of  iterations,  considering  the  cards 
used  in  the  input  data  deck  for  restart  as  PHED1 
if  he  wishes. 

NOTE  :    If  magnetic  tape  is  used  for  input,  be  sure 
that  PHED1(I,J)  and  PHED2(I,J)  are  dimensioned 
exactly  the  same  as  PHED(I.J)   in  STDY2.     If  punch 
cards  are  used,  PHED1(I,J)  and  PHED2(I,J'>  must 
have  dimensions  at  least  as  large  as  those 
exhibited  by  the  input  data.     Dimensioning  is 
specified  in  the  DOUBLE  PRECISION  and  DIMENSION 
statements. 


Glossary  of  noninput  variables 

DIFF  -  The  absolute  difference  between  PHED1  and 
PHED2. 

I  -  Column  number,  !,  in  the  arrays  being  compared. 
ICT  -  A  counter  used  in  selecting  the  wanted  input 

file  from  a  multifile  tape. 
J  -  Row  number,  J,  in  the  arrays  being  compared. 
RATIO  -  DIFF  divided  by  PHED1. 
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Program  listing 


COMPAR    COMPARES   DATA    IS   TWC  ARRAYS, 

AND  PHE02IIiJli   OF  ECUAL  DIMENSIONS. 


3/18/7* 


C 

C        COMPAR    COMPARES   RATA    IN   TWC   ARRAYS,  PHEDltl.J) 

C 

c 
c 
c 

C***e*  POSSIBLE  MODIFICATION  TYPE  Ml. 

C 

0001  DOUBLE   PRECISION  PHEC1 ( 60, 70 ) , PHED2 ( 60, 70 ) , R AT  10 , D I FF ,DL I M I T 

C 

C*»**«    POSSIBLE   MODIFICATION  TYPE  M3. 

C 

0002  DIMENSION  COMENT  (100) 

C 

C****«   POSSIBLE  MODIFICATION  TYPE  H4. 
C 

0003  5  READ   (5 ,  10  ,  END  =  70 ICCMENT 
000*  10  FORMAT   ( 20A4) 

00C5  WRITE   (6,15)  CGMENT 

0CC6  15  F CR MAT   1 1H 1 , 2 0 A4/ ( 2 CA4 ) I 

0007  READ  (5,20)  DL I M I T , MRO W , MCOL , I F I L E 

0008  20  FORMAT  (C13.6.3I5) 

0009  WRITE  (6,25) 

0010  25   FORMAT    ( 1H0 , 4X , 6H DL I M IT   6X.4HMR0W   3X.4HMCCL    2X.5HIFILE  ) 

0011  WRITE    (6,30)  DLIMIT,MROW,MCCL,IFILE 
3012  30   FORMAT    (  1H  013.6,16,17,16) 

0013  WRITE  (6,35) 

001*  35   FORMAT    (1H0  2X.1HI    2X.1HJ   5  X , 5HR AT  I C   5X , 10HPHED1 ( I , J )  3X, 
110HPHED2I I , J)  //) 

0015  IF   (IFILE.NE.O)   GC  TO  45 

0016  READ  (5, AO)   (  (  PHEDU  I  ,  J)  ,  1=1 ,  MCOL)  ,  J  =  1,MR0W  ) 

0017  40  FORMAT  (6D13.6) 

0018  READ  (5,40)   ( (PHED2II ,J) , I =1 , MCOL ) , J= 1 , KROW ) 

0019  GO  TO  55 
C 

C****t   POSSIBLE  MODIFICATION  TYPE  M5. 

C 

0020  45  DC  50  ICT  =  l.IFILE 

0021  READ   (9)  PHED1 

0022  50  READ    (9)  PHED2 
C 

C***  COMPARE    ARRAYS    NODE   BY   NCDE  **»***»*»« 
C 

0023  55  DC  65  J  =  l.MRCW 

0024  DO  65   I  =  l.MCOL 

0025  IF    I PHFD1 ( I, J ) .EQ.O.OR .PHEC2( I , J ) .FO.O)   GO  TO  65 

0026  OIFF  =  DABS( PHED1 ( I  ,  J)  -  PHED2(I,J)) 

0027  RATIO  =   DABS    (  CI  FF   /  PHEDKI.JI) 
3028  IF    ( RATI O.LT.CL IMIT  )   GO  TC  65 

0029  WRITE   (6,60)    I , J , R AT  1 0 , PH ED  1 ( I , J ) , PHED2 ( I , J ) 

0030  60  FCRMAT   (IX, 213, 3D  13. 6) 

0031  65  CONTINUE 

0032  GC  TO  5 

0033  7C  STOP 
1034  END 


Appendix  D : 
List  of  Non-Fortran  Symbols 

h  -  Soil  water  pressure  head  (L) . 
S  -  Hydraulic  head  (L) . 

1  -  Column  number  in  solution  mesh, 
j  -  Row  number  in  solution  mesh. 

K  -  Hydraulic  conductivity  (LT~1) . 

m  -  Iteration  number  in  the  finite  differencing  scheme, 
y  -  Flux  rate  (LT-1) . 

z  -  Distance  parallel  to  x-axis  of  the  Cartesian 
coordinate  system,  positive  to  the  right  (L) . 

y  -  Distance  parallel  to  the  j/-axis.    For  purposes  of 
presentation  of  the  model  equations,  y  is  positive 
upward.     The  significance  of  this  is  that  infil- 
tration is  a  negative  flux  and  upward  evaporation 
is  a  positive  flux.    For  purposes  of  measurement 
between  the  r-axis  and  rows  of  nodes  in  the  solu- 
tion mesh,  however,  y  is  positive  downward  (L) . 

2  -  Elevation  above  a  datum  (L) . 

a  -  The  tangent  of  the  angle  a  is  the  slope  of  the 

cross  section. 
Ax_  -  Length  of  mesh  increment  to  left  of  node  i,j 

in  the  solution  mesh  (L) . 
Ax+  -  Length  of  mesh  increment  to  right  of  node  l,j 

(L). 

-  Length  of  mesh  increment  above  node  i,j 
(L). 

Aj/+  -  Length  of  mesh  increment  below  node  i  ,  j 
(L). 

0)  -  Overrelaxation  factor. 


Appendix  E : 
Program  Updating 

Although  the  program  has  been  run  for  a 
number  of  different  cases,  there  will 
undoubtedly  be  reason  to  alter  it  in  the 
future — either  to  correct  as  yet  undetected 
errors,  to  modify  output  formats,  or  to 
improve  efficiency. 

Notification  of  updating  will  be  by 
mimeographed  reports.    Users  who  wish  to 
receive  update  notices  should  ask  to  be 
placed  on  the  update  mailing  list  by  writing 
to  the  author: 

C.  R.  Amerman 

USDA  ARS 

207  Business  Loop  70  East 
Columbia,  MO  65201 
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